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ins Introduction 

FORTRAN Extended is a two pass compiler'-, the input is FORTRAN 
source card images and the output as assembly language program. 
Version 1 assembly is by COMPASSr Version 2 assembly by FTNXAS, a 
one pass assembler which recognizes a subset of the COMPASS language 

PASS 1 is divided into two phases = the FTN control cardr the 
header cardr and declarative statements are processed in Phase Ir 
executable statements in Phase 5- 

During Phase 1 the header card is processed; the COnnON-, DIMENSION 
and Et3UIVALENCE information is held in linked lists in working 
storage. These lists are processed at the end of Phase 1 and 
COMPASS instructions are issued for storage allocation- 

Phase E converts the executable statements to an intermediate 
languager R-listr and when the END card is seen storage is issued 
for usage defined variables and program constants- The symbol 
table which contains the attributes of the symbolic names and 
labels in the program is condensed- 

Thus Pass 1= 

1> Converts all source statements to an intermediate language 

E-1 ist. 
2> Forms the symbol table- 

3> Issues COMPASS instructions for program i dent i f icat i onr 

variable initialization and storage allocationr program 
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constantsr traceback and formal parameter initialization. 

^y Produce the R-list intermediate file for executable 
statements- 
Pass 1 Task Summaries 

£JR is the main controlling routine- It loads the over 1 ays r cracks 
the FTN control cardr contains the I/O buffer area and the general 

niinnn<2D T /O nm i+- tr>oo. 

SCANNER transforms all source statements into the intermediate 
languager E-listr and determines statement type- Basic syntax 
errors are diagnosed- 

LSTPROC locates in or enters into the symbol table a given symbolic 
name or 1 abe I - 

CONVERT converts the display code representation of a constant to 
its internal binary form- Illegal constants such as those contain- 
ing too many digitsr non-octal digits in an octal constant or con- 
stants out of range are diagnosed here- 

ERPRO saves diagnostic information accumulated during Pass 1 for 
processing in Pass E- 

I>ATA processes DATA statements and produces appropriate COflPASS 
code for data init ial izat ion- 

DOPROC examines DO statements! DO-implied listsr statement numbersr 
statement number references and integer variable definitions and 
references. Determines the characteristics of DO-^s and index 
functionsr diagnoses nesting and the use of statement numbers and 
generates R-list defining the beginning and end of each DO loop 
and DO-impl ied 1 ist- 

STOP processes the STOP statement- 

PAUSE processes the PAUSE statement. 

lf_ processes all IF statementsr the IF expression is translated 
via ARITH. 

ARITH processes replacement statements and translates the arithmeticr 
logical r relational r or masking expressions that legally appear in 
any statement - 
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ENDPROC generates R-list for exit coder issues storage for usage 
defined variablesr processes EXTERNAL namesr condenses the symbol 
table and sends CONLISTr the program constantsr to the assembly 
code f i le- 

RTNPROC processes RETURN statements. 

NAtlELIST processes NAMELIST statements into COHPASS instructions. 

PRINT processes al I I/O statements. 

ASSIGN processes the ASSIGN statement. 

ENTRY processes the ENTRY statement. 

GOTOPRC processes all GOTO type statements. 

ASFPRO processes all statement function definitions by saving the 
textr and processes all statement function references by expanding 
the E-list and inserting the text. 

DECPHI processes declarative and header statements- Declarative 
i nformat i on is held in linked lists until Phase Er at which time 
COMPASS instructions are issued for storage allocation. Header 
statements cause COHPASS instructions for program initialization 
to be issued. 



In it i al ly Pass 2 i 
may be divided by 
pre-processing of 
former phase basic 
usually one sequen 
macros- The vario 
generation. Contr 
continues to fluct 
on the f i le has be 
parameter code is 
selectedr Pass 1 i 
programs are prese 
contents of the as 
not selectedr the 
binary sent to the 



ssues the diagnostics to the OUTPUT 
function into two principal areasr 
R-list and the actual code generat i 
ally entails accumulating R-list fo 
cer and provides for the expansion 
us optimizing routines are then cal 
olr in turnr reverts back to the fi 
uate between the two functions unt i 
en decoded. The variable dimension 
sent to the COMPASS file- If the R 
s loaded and receives control if mo 
nt; otherwise COMPASS is loaded to 
sembly code -CCOMPS} file. If the R 
generated code is assembled by FTNX 
b i nary file- 



f i le. Pass B 
namelyr the 
on. The 
r opt imizat ionr 
of al 1 R-l ist 
led for code 
rst area and 
I al I R-l ist 

and formal 

option was 
re FORTRAN 
assemble the 

option was 
AS and the 



PRE is the main controlling routine. It calls other Pass E routines 
and also defines a sequence- It puts out inactive label names to 
COMPASSr passes control to PR0SEC3 for opt imizat ionr and detects 
the end of R-! i st- 
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READRL obtains R-list file input for Pass S- It also receives as 
input macro expansions from HACROE- (jJhen calledr it returns 
either a single entry plus descriptor or an entire macro reference 

A])DT0S(3 accumulates the sequence in working storage- 

APDTOAP accumulates actual parameter list entries in working 
storage- 



I T\ /\ 



DOPRE examines DO begin and pv end macro rererencesr standard 



index function macro references and all R-list instructions genera- 
ted within the innermost loop of a DO nest provided the loop is 
well behaved. R-list instructions are generated to count DO- 
loopsr reference standard index functions and to materialize the 
control variable when necessary - 

flACRQE expands macro references into normal R-list form. 

The following routines combine to perform the code optimization 
funct ions: 

PR0SE(3 calls the optimizing routines and also handles the cutting 
down of a sequence should tree complexity or working storage 
limitations become a problem. 

COPY recopies the sequencer generating three separate lists and 
removing statement markers. Si3UEEZE marks redundant instructions 
for elimination. PURGE physically eliminates the instructions 
marked by S(2UEEZE. 

BUILDDT forms a dependency tree from the squeezed sequence. The 
tree reflects precedence relationships within the sequence. 

OPT is the code selector- Having considered timing aspects and 
register usagesr it calls POST with the particular instruction to 
be issued. 

POST transforms the R-list instruction into a COriPASS card imager 
and eventually issues the code for the sequence to the COIIPASS 
file. 

FTNXAS is the Version E specialized one pass assembler. 

The following routines are involved in closing Pass E- 

V ARCLOS transforms the VARDIM sequencer if any existsr to ordinary 
sequence format and calls PR0SE(3. 
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S(3ZVARD eliminates redundant store operations from the VARDIM 
initialization sequence and transforms corresponding storage 
allocation to the COflPASS file. 

APLISTE converts APLIST entries to COMPASS card image then puts 
them in the COflPASS file. A SUB macro reference is generated for 
any formal parameter not referenced in the program. 
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General 

FTNSIO is the DrD or primary overlay- It contains^ general 
purpose I/O routinesr I/O buffers and FETsr and the code to 
load the overlays- Assembled into the I/O buffer areas is the 
code to crack the FTN control card and to initialize necessary 
f i les- 

The I/O buffers are for the INPUT and OUTPUT files- The FETs 
are for the INPUT, OU?PUTr LGO or binary, and the COMPS -[gene- 
rated assembly language} file- The COMPS buffer is in the 
1, overlay and the LGO buffer is assigned a location by the 
assemb ler- 

Entry point names 

CIOl- This entry point is used to facilitate the issuing of 
system I/O cal 1 s- 



2-1- l.Cal 1 ing sequence- 

SXE^ I/O parameter -Csee SCOPE 3-0 reference manual 
Chapter 3> 

SB? return address 

SXl FET address 

EQ CIOl 

if X2 <D, the requested function is issued with auto-recall 
-Csee page 3-n of SCOPE 3i.D reference manual for definition of 
auto-recal l> 

RCLl- This entry point is used to facilitate issuing the 
^recall^ request to the operating system. 



E-E 



E-E-l Calling sequence SXl FET address 

SB? Return address 

SXE P 

ZQ RCLl 

If ■P=0 control will not be returned to the program until bit D 
of word 1 of the FET becomes a 1- 

If P=D the central processor will be relinquished only until the 
next time around the monitor lopp. 

See Chapter 3 of the SCOPE 3.D reference manual for definition 
of the two types of RECALL. 
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2-3 REUIND This entry point is used to rewind output files used 
by the compiler. An end-of-file write is requested 
followed by a rewind request - 

E.31 Calling sequence 

SBt file number "^ 
RJ REWIND 

«>^See paragraph S-D 

E.Lf TITLEl. This entry point is the first word of a 13 word title 
which is listed at the beginning of each page- 

2-5 LCNT. This one word entry point holds the number of lines 
left to be printed on a page- If a page eject is 
desiredr LCNT is set to zero. 

2.b LIST. This entry point is used to output compiler information 
to the output file specified on the control card. 

2.7 PAGE. This one word entry point contains the current page 
number in display code. Setting PAGE to zero will 
initialize the page number to one- 

2.fi LUAERTL. Address of the last word in the error tabler used by 
ERPRO to detect table overflow. 

2.^ LDCOn Entry point which is used to generate a call to the 

LOADER to load the CONPASS overlay. COHPASS is loaded 
at 3DDDB. 

2-lD ERACCUH. A one word flag which indicates if any fatal errors 

have occurred during a run. Zero indicates no errorsr 
non-zero indicates errors. 

2-11 LOVER. Routine which calls the LOADER to load overlays. See 
SCOPE 3.0 reference manual Chapter "4 calling sequence 
to LOADER. 

2.12 PLUG 1, PLUG 2. An entry point -[s> in which an RJ URUDS for 

IjJRUDS2> is stored to an output routine in each pass of 
the compiler. Since it is not possible to link from 
the DfD overlay to the IrD or lr2 overlaysr each pass 
of the compiler stores a RJ instruction in these 
locat ions. 

2.13 Processing Flow Description 

Control is obtained through the entry point FTN and 
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then cracks the control card and opens the I/O files* 
-[See SCOPE 3.D reference manual rch- 3r page 3.21>. 
LOVER is then called to load the IrD overlay. The l.D 
overlay will allocate storage for the COilPS buffer 
then return control to LDRPHl in FTNSIO which then 
loads the 1-1 overlay or Pass 1 of the compiler. The 
IrD overlay is loaded only once while the Pass 1 -tlrl^ 
and Pass E ■[lrE> overlays once for each sub-program 
under the standard configuration. 

3.D Diagnostics. No diagnostics are produced by FTN. 

^.D Structure 

M « 1 Major Subroutine Names 



^.l.l INIT. 



M.l.E DONE. 



This routine cracks the FTN card and sets up the 
appropriate options. 

L option selectedr set NOLSTFL -Cloc SDB> to non-zero 

X option selectedr set NASAFL6 -Cloc HEB> to non-zero 

R option selectedr set bits 30-5^=1 at loc 33B to non-zero 

option selectedr set bit D of location 338 

B optionr the file name specified is placed in loca- 
tion MB 

L -[output> file name is placed in location 3B 

1 -CinputJ file name is placed in location EB 

T option selectedr location MSB is set to non-zero 

E option selectedr location iDB is set to non-zeror 
file name or COUPS placed in location LB 

This routine makes system calls to '^^OPEN^ the I/O 
files and requests the time and date from the operating 
system. 



»4.1.3 OTITLE. This routine is used to update the page count whenit is 
necessary to output a title line. The number of lines 
per page may be changed by modifying an Ei3U call LflAX 
in the common file call OPTIONS- 



S.D 



All filesr names -Cand FET addresses> used by the com- 
piler are placed in RA-^S thru RA-t-b. All routines which 
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wish to reference a particular file do so by number 
File number designations- 



1 


INPUT 


2 


OUTPUT 


3 


LGO 


^ 


RLIST 


s 


conps 



C A 138-1 REV 10-67 



CONTROL DATA CORPORATION . COMPUTER EQUIPMENT GROUP 
DIVISION 



DOCUMENT CLASS. 
PRODUCT NAME — 



PRODUCT MODEL NO, 



IMS 



PAGE NO. 



3.1 



FORTRAN Extended 



4P616 



MACHINE SERIES 64/65/66QQ 



PSXCTL 



1.0 



2.0 
2.1 
2.1-1 



2.1.2 

2.2 
2.2.1 



7.0 



General Information 

PSICTL resides in the Pass 1 overlay. Its primary function is to 

load in the second pass. It contains the compiler output buffer 

filling routine WRWDl. 

Usage 

LDPS2 

Entering at LDPS2 will result in the R-list intermediate file being 

rewound and a call to LOVER being, made to load the overlay READRL$ 

which is the name of Pass 2 of the compiler. 

Calling sequence: 

LDPS2 is entered via a branch to the entry point of the same name. 

liJRWDS 

This routine is used to output information. The calling sequence 

is : 

SB6 'file number'' 

SB7 "fwa" of central memory to transfer from 

SBl "number of words to transfer" 

RJ WRWD2 
Modification Facilities 
The OVERLAY parameter of OPTIONS is interrogated in this routine. 
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SCANNER 

1.0 General information 

1.1 SCAMER transforms all source statements into the intermediate language 
E-list, then determines the statement type so the proper statement 
processor can be called. SCANNER is called by PHICTL and PH2CTL and 
f-Kiig ires ides in over la'*' 1*0* 

2.0 Usage 

2 . 1 SCANNER 

2.1.1 Upon initial entry from PHICTL; 

1. TITLEl and TITLE 1-5-1 will be initialized to all blanks. 

2. Any comment or blank cards are placed in the LIST file via FCRD. 
If, before a PROGRAM, SUBROUTINE, FUNCTION, or BLOCK DATA statement 
is seen the characters IDENT appear in columns 11-15, that card image 
along with all subsequent cards up to and including the first card with 
END characters in 11-13 and a blank in 14 are sent to the COMPASS file 
via FCRD. 

I'Then a PROGRAI-I, SUBROUTINE, FUNCTION, or BLOCK DATA statement is seen 
with a ' name'^ on the first card the "name^' is placed in TITLEl-M and 
the statement identifier placed in TITLEl. TITLEl is an entry point 
in the SIO program. Each source statement is scanned individually and 
transformed into E-list before control is returned to the phase con- 
troller . 

2.1.2 Calling Sequence and Returns 

The calling sequence is RJ SCANNER, Upon return register B7 and 
TyPE(RA-f24B) will hold the primary statement type. ATYPE (RA-^51B) 
will hold any constant type associated with the statement. If the 
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Statement is a logical IF, the type of the statement following the 
logical expression is found in LIYPE (RA+21) and the starting address 
in LELIST (RA+34B) . The starting address of E-list for the primary 
statement is found in SELIST. The last location used for E-list is 
found in ELAST(RA+14B) . CIABEL(RA+23B) holds in display code the 
statement label, if any, left justified and blank filled. NIABEL 
(RA+60B) holds the label, if any, in the same form for the next state- 
ment. If no label is present NIABEL and CIABEL will be zero. 
2.3 Processing Flow Description 

SCANNER expects SYMEND (RA+13 B) and CST0Rl(RA+16B) to be initialized. 
SIC is called to transfer one card image from the input file to a 
buffer local to SCANNER. The 80 display code characters are stored one 
per word, right justified zero filled. The card image is checked for 
1) all blanks, 2) a comment card, and 3) an IDENT card. If not one of 
these a string is formed (left to right scan) containing all initial 
alphanumeric characters and terminated by sensing the next statement 
or an operator or delimiter in the statement. The string is checked 
for PROGRAM, SUBROUTINE, FUNCTION, BLOCK DATA 'name' and when found 
the identifier and "name" is placed in the list file header line and 
the entire statement is then processed. If not found either an error 
has occurred or packing of the alphanumeric string will continue. 
In general a left to right alphanumeric string is formed and 
terminated by an operator or delimeter or sensing the next statement. 
Depending upon the condition tiiat terminated the string, control is 
passed either to determine the statement type or transform the state- 
ment to E-liFt until the condition exists when the statement can be 
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typed. After the statement has been typed the remainder of the 
statement is simply transformed to E-list until the next statement is 
sensed. It is sometimes necessary to separate the statement identifier 
from a S3niibolic name or constant. This is done when the statement is 
typed and the SELIST pointer is set. When the next statement is seen 
the ELAST pointer is set and control is returned to the caller. 

3.0 Diagnostics 

3.1 Fatal to Compilation 
3.1.1 TABLES OVERDVP, MORE MEMORY REQUIRED. 

3.2 Fatal to Execution 

3.2.1 UNRECOGNIZED STATEMENT 

3.2.2 ILLEGAL CHARACTER IN LABEL FIELD 

3.2.3 STATEMENT TOO LONG 

3.2.4 SYMBOLIC NAME TOO LONG, M^iX IS 7 

3.2.5 UN-ETCHED PARENTHESIS 

3.3 Non ASA Diagnostics 
3.3.1 7 CHARACTER SYMBOLIC NAME IS NOT ASA 

4.0 Environment 

The address placed in SELIST is found by subtracting 15 from the address 
found in SYMEND. The E-list is formed growing into smaller addressed 
memory. Constants are placed in CONSTOR (initial address is found in 
(STORl) left adjusted blank filled and CONSTOR grows into higher 
addressed memory. Also expected to be available via SIO are the input 
file, the COMPASS file and the list file. 
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5.0 Structure 

The subroutines are listed in the order of appearance in SCANNER. 

5 . 1 FRCRD 

FRCRD fetches the next source card from the input file and places the 
80 characters one to a word, right adjusted zero filled. The first 
request will not result in a check to see if the card image should be 
placed in the list file. All subsequent requests will check 
NOLSTFL(RA+50B) (non-zero means yes) to see if a listing is desired 

t r „i-l _1 1- ■PCT'CT.T /« 1«««1 ^ 1 o <-» n-r\A -n r\n —T a-r r\ maortc fTOc"*^ f" r> 1 "I C f" 

the card image. FSTSW is turned to OFF when a COMPASS program is being 
sent to the COMPASS file. The line count is updated and inserted in 
the listing every five lines. 

5.2 FORD 

Transfers the last read card image into the list file when FSTSW and 

NOLSTFL are set non-zero. 

5.3 PACK 

\^en expecting a statement identifier PACK will pack alphanumeric 
characters 10 per word and store in working storage (SELIST) . When 
expecting a symbolic name PACK will make the E-list entry for the 
symbolic name. 

5 .4 SEARCH 

Using the three tables described in Section 6, SEARCH trier to identify 
the statement type. If successful the statement type code is placed 
in TYPE, any arithTnetic type in ATYPE, and the number of characters in 
the statement identifier is in XO, 
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5.5 AD J 

ADJ separates the statement identifier from any symbolic name or 
constant that was packed with it at the start of statement processing. 
Either a symbolic name or constant E-list entry is made and SELIST 
adjusted as necessary. 

5 . 6 GET 

GET keeps track of the current column of the source card image being 
interrogated and upon request returns to the caller the next non-blank 
character in register B2 , The blank squeeze takes place here. After 
column 72 the routine NEXT is called to transfer the next card image 
to the local buffer. 

5.7 NEXT 

NEXT calls FRCRD to transfer the next card image from the input file to 
location SBUFF an 80 x^rord buffer. When either an all blank card or a 
comment card is seen, the next card image is requested. For a continua- 
tion card return is made to the caller. VJhen a new statement starts, 
several checks are made: 1) if an error occurred on the statement being 
processed and the statement was typed return is made to SCANNER'S caller 
via the routine STATED, otherwise processing starts on the new statement, 
2) any symbolic name E-list entry is completec3, 3) any constant E-list 
entry is completed. If the statement has been typed return is made to 
the phase controller via SCANNER'S entry point. Otherwise, the necessary 
statement typing routine is called and an attempt is made to type the 
statement . 

5.8 STATEl 

STATEl makes sure an alphabetic character starts the statement and then 
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calls PACK to pack a statement identifier. PACK returns control to 
SmTE 2. 
5.9 STATE 2. 

STATE2 Is a jump vector which transfers control to the proper routine 
depending on thr condition that terminated the statement identifier 
packing. 

5.9.1 The characters -i- - * ) . cause an unrecognized statement diagnostic. 

5.9.2 S. A slash terminates the string. SEARCH is called to check for DA'L\ 
N/j COMMON/, COMMON N/, or NAlSRLir^T/. Aft^-' puccrprfnl typing and 
adjusting control is returned to TT'iTES. 

5.9.3 LI. A left parenthesis terminates the string. If the string is 
FORMT and the statement was labeled, control is transferred to FORMAT 
to process the statement. If not, a parenthesis count is started and 
control is transferred to STATES. 

5.9.4 Dl. The typing routine for an all alphanumeric statement. SEARCH is 
called to look for any form of: CONTINUE, STOP, ECS, GOTO, PAUSE, 
CALL, READ, PxKAL, ENTRY, PRINT, PUNCH, RETURN, COMMON, DOUBLE, REWIND, 
COMPLEX, ENDFILE, INTEGER, LOGICAL, PROGRAM. TYPEECS . EXTERNAL, 
TYPEREAL, BLOCKDATA, BACKSPACE, SUBROUTINE, TYPEDOUBLE, TYPECOMPLEX, 
TYPE INTEGER, TYPELOGICAL, ASSIGN, DOUBLE PRECISION, TYPEDOUBLEPRECISION 
After successful typing and adjusting control is transferred to STATED. 

5.9.5 El. An = sign terminates the string. If the string is from 3 to 14 
characters long a check is made for a DO statement. If so control is 
passed to ADJDO. If the string is less than 8, control is passed to 
STATES. 

5.9.6 GGl. A comma terminates the string. SEARCH is called to look for the 
forms of: ECS, GOTO, CALL, REAL, QATA, BIAD, FRDs-T, PUNCH, COMMON, 
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DOUBLE, COMPLEX, INTEGER, LOGICAL, TYPEECS , EXTERNAL, TYPEREAL, 
SUBROUTINE, TY PE DOUBLE , TYPECOMPLEX, TYPEINTEGER, T^PELOGICAL, 
D0U3LEPRECISI0N. TYPE DOUBLE PRECIS ION. After typing and adjusting 
control is returned to STATES. 

5.10 STATE 3 

STATE 3 transforms sjnnbolic names, constants, operators, and delimeters 
into E-list until the parenthesis count is zero, then control is passed 
to STATES. 

5.11 STATE 5 

STATE5 contains a jump vector to pass control to the processing routine 
depending on the character that appears immediately after the parenthesis 
count goes to zero, 

5.11.1 The characters + - * ) blank and . will cause an unrecognized statement 
diagnostic. 

5.11.2 P5 . Is entered when an alphabetic follows when paren count goes to 0. 

If the string length before the first left paren is 2 a check is made for 
a logical IF. If so, control is passed to STATES. If not SEARCH is 
called to look for any of the forms of: GOTO, READ, \i7RITE, ENCODE, DECODE, 
After successful typing and adjusting control is passed to STATES. 

5.11.3 N3. Is entered when a digit follows as paren count goes to 0. Check 
the string before the first left parenthesis for IF and if so, assume 
an arithmetic IF then pass control to STATES. 

5.11.4 SD. A slash causes SEARCH to be called to look for any of the forms of 
DATA and COMMON. After typing and adjusting control is passed to 
SmiEB. 
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5.11.5 L3. A left parenthesis causes SEARCH to look for any proper form of 
READ, miTE, ENCODE, DECODE, BUFFERIN, BUFFEROUT and after typing and 
adjusting pass control to STATES. 

5.11.6 D3 . The statement is terminated at parenthesis count=0. After 
checking for l^ITE and EQUIVAI^ENCE , SEARCH is called to look for any 
form of: READ, DATA, ECS, CALL, REAL, COMMON, DOUBLE, COMPLEX, INTEGER, 
LOGICAL, PROGRAM, T^PEECS, TYPEREAL, FUNCTION, DIMENSION, SUBROUTINE, 
T^PEDOUBLE, TYPECOMPLEX, TYPEINTEGER, T5fPEL0GIGAL, REAL FUNCTION, DOUBLE 
FUNCTION, COMPLEXFUNCTION , INTEGERF UNCTION, LOGICAL FuUCTTON, DOUBLE- 
PRECISION, TYPEDOUBLEPRECISION, DOUBLEPRECISIONFUNCTION and after typing 
and adjusting pass control to SXATEO. 

5.11.7 E3 . The = sign here causes the type to be set replacement and control 
is passed to STATES after making the string before the first left paren 
into a symbolic name entry, 

5.11.8 CC3. The comma causes a check made for EQUIVALENCE and then SEARCH is 
called to look for the forms of: DATA, GOTO, ECS, CALL, REAL, DOUBLE, 
COMMON, COMPLEX, INTEGER, LOGICAL, TYPEECS, TYPEREAL, DIMENSION, SUB- 
ROUTINE, TTPEDOUBLE, TYPECOMPLEX, TYPEINTEGER, TYPELOGICAL, DOUBLE- 
PRECISION, TYPEDOUBLEPRECISION and after typing and adjusting pass control 
to STATES. 

5.12 STATE6 

STATE6 determines if the statement is a replacement or a DO. A jump 
vector passes control depending upon the first character after the = 
s ign . 

5.12.1A/ * )■= $ , cause a unrecognized statement diagnostic to be issued. 

5.12.2 P6. An alphabetic causes PACK to be called to pack a symbolic name then 
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pass control to STA.TE 7. 

5.12.3 N4. A digit causes DIGIT to be called to make the E-list entry for a 
constant and then pass control to SIATEIO. 

5.12.4 A + - ( or . cause the statement to be typed replacement and control 
passed to STATES after making a symbolic name entry of the string before 
the = sign. 

5 . 13 STATE? 

STATE 7 has a jump vector and passes control depending upon the 
character that terminated the S3nsibolic name after the = sign. 
5.13.1A-f - * ( -or, cause the statement to be typed replacement and 
control passed to STA.TE8 after making a symbolic name entry of the 
string before the = sign, 

5.13.2 A ) will cause an unrecognized statement diagnostic to be issued. 

5.13.3 CC4. A , will cause a check of the string before the = sign for a DO. 
If the first two characters are DO a jump is made to ADJDO to make a 
constant and symbolic name entry and then pass control to STATES. 

5 . 14 STATES 

The remaining elements of the statement are transformed into E-list 

and stored until the statement is terminated either by an error 

occurring, or a new statement being sensed. 
5 . 15 STATEIO 

STATEIO contains a jump vector and passes control depending upon the 

character t;-:at tGrninated the constant that appeared after the first 

= sign. 
5.15.1 A + - * / (or .will cause the statement to be typed replacement 

and control passed to STA.TE8. 
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5 .15.2 A ) will cause an unrecognized statement to be issued. 

5.15.3 CCS. A , will cause the string on the left of the = sign to be 
checked for a DO statement by calling ADJDO. 

5 . 16 STATED 

STATEO inserts the end -of -statement code into E-list. QLABEL is called 
to scan the label field (columns 1-5) and make the proper entries in 
CLABEL and NLABEL. Return is then made to the phase controller via 
scanner's entry point. 



C IT r^T A tn?T 



QLABEL scans the label field (SBUFF through SBUFF-f4) for a legitimate 
label. If found, the label is placed in NLABEL left adjusted and blank 
filled after first transferring the contents of NLABEL to CLABEL. 

5.18 ADJDO 

E-list and constor entries are made for the u i in the DO u i part of 
the DO statement. DO u i is stored as a statement identifier at 
SELIST. A symbolic name entry is made for i and an integer constant 
entry made for u. 

5.19 ASSIGN 

The ASSIGN k TO i string is stored at SELIST. ASSIGN makes a symbolic 
name E-list entry for i and an integer constant entry for k. 

5.20 CFSNC 

Checks all two character symbolic names for register names (^0-^7. 
B0-B7, X0-X7) and if so suffixes a currency S3mibol to the symbolic name 
E-list entry. 

5.21 POINT 

Determines the element that starts with a decimal point (constant, 
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relational or logical operator) and makes appropriate E-list and CONSTOR 
entries. 

5.21.1 LOl. Checks one character alphabetic string bracketed by decimal 
points for A, F, N, 0, T, 

5.21.2 L02 . Checks two character alphabetic strings bracketed by decimal 
points for EQ, GE, GT, LE, LT, NE, OR. 

5.21.3 L03. Checks three character alphabetic strings bracketed by decimal 
points for AND, NOT. 

5.21.4 L04. Checks four character alphabetic strings bracketed by decimal 
points for TRUE. 

5.21.5 IX)5. Checks five character alphabetic strings bracketed by decimal 
points for FALSE. 

5.21.6 PACKC. Packs one character at a time into the CONSTOR entry for a 
constant. 

5.21.7 PACKT. Fills the last word of the CONSTOR entry with blanks and makes 
the E-list entry for the constant. 

5.22 DIGIT 

Determines the constant type element that begins with a digit, and 
calls PACKC and PACKT to make appropriate CONSTOR and E-list entries. 

5.22.1 CFD, Checks the alphabetic character that terminates an all digit 
string for E, D, B, H, L, R. 

5.22.2 REXPPP, Inserts a decimal point in the constant string just before 
the E. 

5.22.3 DEXPPP. Inserts a decimal point in the constant string just before 
the D. 

5.22.4 REXP. Sets constant type to real, then expects an exponent. 
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5.22.5 DEXP. Sets constant type to double, then expects an exponent. 

5.22.6 KD. T^en a decimal point follows a digit string the constant type 
is set to real, then expect a fractional part or a D or E. 

5.22.7 inc. I-Then expecting either a fractional part of the constant or a 
D or E. 

5.22.8 line. Expecting an optionally signed exponent that must appear after 
a D or E. 

5.22.9 VC. Packs digits in the exponent field until the constant is 
terminated. 

5.22.10 DEXP. Sets constant type to octal and terminates constant via PACKT. 

5.22.11 HEXP. Converts the n in the nH, nR, or nL field to binary, then 
packs the next n characters into a Hollerith constant. 

5.23 FORMAT 

Beginning with the first left parenthesis that follows the cliaractcrs 
FOPJyIAT, the entire statement is packed ten characters per word and 
stored beginning at SELIST. The last word is blank filled. 
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6.1 E-list format 
Element 
constant 
s^Tnbolic name 
) 

end -of -s ta t ement 

( 

.CR. 

.AlID. 

.NOT. 

.LE. 

.LT. 

.GE. 

,GT. 

.NE. 

.EQ. 
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+ 



/ 



E-list forma t 

VFD 12/20003, 3/t, 6/s, 11/0, 10/n, 13/?ointer 

VFD 12/2001B, 48/Name 

VFD 12/2002B 48/0 

VFD 12/2003D, 43/0 

VFD 12/2004B, 43/0 

VFD 12/2005B, 43/0 

VFD 12/20053, 43/0 

VFD 12/2007B, 48/2 

VFD 12/2010B, 48/3 

VFD 12/2011B, 48/4 

VFD 12/2012|B, 48/5 

VFD 12/2013B, 48/5 

VFD 12/2014B, 48/5 



VFD 12/201SB, 48/5 

VFD 12/2016B, 48/5 

VFD 12/2017JB, 48/5 

VFD 12/2020B, 48/6 ' ' 

VFD 12/2021B, 48/6 

VFD 12/2022B, 48/7 \ 

VFD 12/20233, 43/8 

VFD 12/20243, 4ViO 
._ t - C :ccz logrcal, 1 £oi integrr, 2 for real, 
3 for double precision, 5 for octal, and 6 for Hollerith, l^en T = 6 
s = for the H form, s = 1 for the L form and s = 2 for the R form. 
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n is the number of characters in the constant string and Pointer is 
the starting address of the string in CONSTOR. For logical constants 
the Pointer field t^ill hold -1 for TRUE and for FALSE and the n 
field is and no CONSTOR entry is necessary. 
6.2 Ctat.inent Type Codes 

Each statement has an associated type code which has the following 
signif i:r.TLce; it is the ordinal in a jump vector of the statement 
processing program. The elements that actually appear in E-list are 
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Statement 
Code Number 




10 

11 
12 

13 



FORTRAN Ex tended 
4P616 



MACHINE SERIES 64/65/6600 



Statement and E-list entries 



PROGRAM s 



PROGRi\M s (...) 
BLOCK DAIA 
BLOCK DATA. _s__ 
SUBROUTINE s 

SUBROUTINE s (a^^, a2 , . . • ,a^^) 

SUBROUTINE s, RETURNS (b, , b^ , . . . ,b ) 

^ 1 £. ^ m 

SUBROUTINE s, (a a ,a ), RETURNS (b, , b^,...b ) 
■I- ^ ^ ^ ,1 , . "^^ „ ni 
t FUNCTION s (a , a , ..., a ) 
12 _ r/ 



COMMON fiz^la^/ . . . /x^/a^ 

DIMENSION V , V , . ' v 
1 2' ' n 



EXTERNAL v^ , v^, ... , v 
1 4 n 



EQUIVALENCE (k^) , (k2) , ,.,, (k^) 

INTEGER, TYPE INTEGER, REAL, TYPE REAL, COMPLEX, TYPE 
COMPLE]{, DOUBLE, TYPE DOUBLE, DOUBLE PRECISION, TYPE 
DOUBLE PRECISION, LOGICAL, TYPE LOGICAL, ECS or TYPE ECS 
v, , v« , . . . , \r 



F0R2i\T (...) 

DATA k^/d^/, ..., k^/d^/ o, (r,=d^),..., (r^=d^) 

K^MELIST /y^/a^/.../y^/a^ 

f (a a^j ..., a ) = e or v=e 

END 

ASSIGN k TO i 
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13 

16 

17 
13 
19 



20 

21 
22 

23 

24 
25 



25 

27 

23 



GC' TO k_ 

GO TO i, (k , k , ...k ) 
1 2 _ n 

IF (e) k^, k^, 1^3 

IF (e) S 

not used at this time 

CALL _j. 

CALL s (a , a^ , . • • > a^^ 

CALL E, RETURNS (b , K , . . .b 
1 <:. m 

RETURN 

RETURN 1 

CONTINUE 

STOP 

STOP n 

PAUSE 

PAUSE r!__ 

DO n i = m , m nu 

READ fyk 
READ (u) k 
READ (u,f) k 
READ (u., f) 
WRITE (u)k 

I^ITE_Juj^_fl_k_. 

BUFFER IN (u, k) (A, B), 

BUFFER OUT (u, k) ( A, B) 
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30 
31 
32 
33 
34 
35 
36 
37 
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ENCODE (n, f, A) k 
DECODE (n^ f , A) k 
REWIND u__ 
MCKSPACE u_ 
ENDFILE u_ 
PRINT f, k 



PUNCH f, k 



ENTRY s_ 

END card assumed for end-of -record 



Statement types 3 and 8 need arithmetic typing information AIYPE 
(?vi\-S-5IB) holds for logical, 1 for integer, 2 for real, 3 for 
double precision 4 for complex, 5 for ECS and -0 means a FUNCTION 
not typed. 
6.3 SEARCH Table Formats 

The SEARCH program utilizes three tables. Each condition that requires 
a search has two distinct tables plus a third table common to all 
conditions. The conditions that use the search are: 

(1) An all alphanumeric statement. 

(2) A , after an all alphanumeric identifier. 

(3) An identifier, then statement terminated a zero parenthesis count. 

(4) An identifier, parenthesis count equal zero, then a slash. 

(5) An identifier, parenthesis count equals zero, then a left 
parenthesis . 

(6) An identifier, then a slash. 

(7) An identifier, parenthesis count equal zero, thon an alpha'^^tic 
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character . 

(8) An identifier, then parenthesis count equal zero, then a ,. 

(9) The initial statement. 

The search keys on the number of alphanumeric characters that appear 
in the initial string. Table 1 thus has one word containing the number 
of statement possibilities as determined by the length of the string. 
In addition to this Table 1 has a pointer to the Table 2 location 
that contains the following information: The location ( in Table 3 ) 
of the display code representation of the statement identifier and thr 
location to jump to upon a successful match. The format of Table 1 is: 

VFD 12/200nB, 48/Table 2 location 

n = the number of identifier possibilities 
The format of Table 2 is: 

VFD 30/ jump address, 30/TablG 3 location 

The format of Table 3 is: 

VFD 12/200mB, 48/statem^nt code 

VFD 60/display code picture of identifier 

m = the number of characters in picture 
Thus for a given condition, the n Table 2 entries (in sequence) are used 
to find the pictures to compare to the string. 

7. Modification Facilities 

Changes in the language are easily incorporated into the scanning techniques 
by adding the pictures to Table 3 and making additions and/or modifications 
to Tables 1 and 2. 

8. Method 

Not applicable, 
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LSTPROC 

1.0 General 

1.1 LSTPROC contains the routines which fetch from or enter into the 
symbol table a given symbol or label. LSTPROC is called by 
CONVERT, DATA, DOPROC, STOPP, PAUSEP, ARITH, ENDPROC, RTNPROC, 
NAMLIST, PRINT. ASSIGN, ENTRYPR, GOTOPRC, DPCOM, DPDIM, DPEQU, 
DPEXT, DPTYP, DPBDA, DPFUN, DPROG, DPSUb] FORMAT, and FTNXAS . ' 

LSTPROC calls one external routine, ERPRO. 

As an instrument for storing data the symbol table is active 
during Pass 1 only. The two word symbol table is saved for the 
FTNX assembler during Pass 2, while the rest of Pass 2 references 
the one word copy of the symbol table directly. The assembler 
uses only the finding feature of LSTPROC. 

Throughout pass 1, symbol table entries are two words in length. 
Any necessary information which does not fit in the two word 
entry will be kept in an auxiliary list elsewhere in memory. 
The symbol table will begin at FL-1 and expand (as new entries 
are made) into lower addressed consecutive locations, while the 
auxiliary table is built from the first available location in 
low core and expanded into higher addressed locations. This 
auxiliary table contains the dimension information as well as 
the information required to process COMMON and EQUIVALENCE 
statements. 

At the end of phase 2 (during END processing) , the symbol table 
will be condensed to one word per entry. The entry will consist 
of the symbol (or label) , and other information needed by DOPRE 
or other processors during pass 2 (see page 8) , 

The two word copy of the symbol table is retained for use by the 
FTNX assembler, 

2.0 Usage 

2.1 Entry Point Names: SYMBOL, LABEL 

2,1.1 SYMBOL searches for a given 7-character symbol in the symbol 
table. If the symbol is already in the table the entry is 
loaded and SYMBOL returns to the caller. If the SYMBOL is not 
presently in the table, it is entered in the table, loaded, 
and SYMBOL returns to the caller. 
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LABEL searches for a given 6-character statement label in the 
symbol table in exactly the same manner as SYMBOL searches for 
symbols, 

2,1,2 Calling Sequence and Returns 

Entry is made to SYMBOL or LABEL via a direct jump (not a return 
jump) with the following register requirements: 

XI: The symbol (or label) left justified in bits 0-47 with blank 
fill. The contents of bits 48-59 is insignificant. 

B7: The address to which control is to be returned if the symbol 
was not already in the table, 

B7+1: The address to which control is to be returned if the 

Control is returned to the caller with: 

Bl = ordinal of word 1 of the two word entry. 

B2 = double the ordinal of word 1 of the entry (Bl+Bl) . 

B5 = 1 

XI = word 1 of the entry, 

X2 = word 2 of the entry, 

AO = starting address of the symbol table. 

Al = address of word 1 of the entry, 

A2 = address of word 2 of the entry. 

3.0 Diagnostics 

3.1 One fatal to compilation condition may be detected: "SYMBOL" 
TABLE OVERFLOW" (a maximum of 8192 words is used for the symbol 
table) , 

3.2 No fatal to execution errors are detected. 

3.3 No information diagnostics are issued. 

3.4 No non-ASA errors are detected, 

4,0 Environment 

When LSTPROC is entered, it is expected to search for a given 
symbol or label, enter the symbol or label if it is not presently 
in the table, and return the entry to the caller. Hence, no 
conditions are expected to be set up by any other processors 
(with the exception of the common cells noted in section 7.0 
of this document) , 
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During Pass 2 the storing feature of LSTPROC is disabled. When 
the assembler jumps to SYMBOL and the name is not found, the 
last non-blank character of the name is checked for , or $, and 
if so is replaced by a blank and another attempt is made to find 
the name. If the name has seven non-blank characters and the last 
character is not , or $, the last character is exclusive "or"ed 
with an 06 and another attempt is made to find the name. This 
procedure is necessary because special characters are suffixed 

to intrinsic! Snd h^ctTr* (=»vf-«=>T-n;:»l -Ft.Tr>/->+--i r\r» n^mt^ey T»r^/^ -.l4.U«,,_U 

they appear that way in the one word symbol table, in the two 
word symbol table only the name appears. 

5.0 Structure 

Note: In many of the subsections of section 5,0, the reader will 
notice repeated use of the symbols P+, P-, C, C-1, and C-2. 
Please refer to section 6.1 for definitions of P+ and P- (these 
are the lower 12 bits of each word of the symbol table entry 
during Pass 1). C denotes the last encountered symbol in the 
search path before determining that this new symbol must be 
entered. Then C-1 and C-2 refer to the next to the last syryibol 
and the 2nd from the last symbol, respectively, encountered in 
the search path. For further clarification of these ciphers refer 
to subsections 6.3 and 6.4. 

5 . 1 SYMBOL 

5.1.1 SYMBOL hashes the 7-character symbol (to be searched for) into a 

7-bit pointer. This value is added to the base address of a table 
(SLIST) to load a word which contains an ordinal of a symbol 
table entry which is the head of this particular list. Routine 
SLCOMM is then entered. 

5.2 LABEL 

5,2.1 LABEL hashes the 6-character statement label (to be searched for) 
into a 5-bit pointer. This value is added to the base address 
of a table (LLIST) to load a word which contains an ordinal of a 
symbol table entry which is the head of this particular list. 
A jump is then taken to SLCOMM. 

5.3 SLCOMM 

5.3.1 SLCOMM transfers the symbol (or label) to the specific register 
(XO) . Then if this particular list is empty the symbol is 
entered in the symbol table, its ordinal is set as the head of 
the list and the not- found exit is taken. If the list is not 
empy, SLCOMM sets the head of the list ordinal in B4 and jumps 
to TOP, 
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5 . 4 TOP 

5,4.1 TOP is the main search loop of LSTPROC. After loading the 

symbol located at the head of the list, the loop is entered to 
compare the symbol searched for with each symbol already in the 
list. The comparison is an integer subtraction. If the result 
is positive the P+ pointer of the current symbol is examined. 
If P+ is zero, the list is exhausted with no compare, hence the 
new symbol must be entered so control goes to routine ENTER. If 
P+ is not zero, the next symbol is loaded and control loops to 
TOP to compare the next entry of the list. If the result of the 
subtraction is negative, P- of the current symbol is examined in 
the same manner as P+. If the result of the subtraction is zero, 
the symbol being searched for has been found, and control transfers 
to FOUND. 

As the list is being searched, information is collected in the X2 
register to be examined by routine ENTER to determine the course 
of the search through the last few (m.aximum of 3) comparisons. 
See section 6.3 for form.at of X2. 

5 . 5 ENTER 

5.5,1 Control transfers to ENTER when it is determined (at TOP) that the 
current symbol is a new symbol and consequently must be entered 
in the table. Through examination of the X2 register, ENTER makes 
available in registers the last few symbols (or labels) , their 
ordinals in the symbol table, and the linking pointers (P+ and 
P-) contained in these entries. The nev; symbol is then entered in 
the next available position in the symbol table v/ith its P+ and 
P- both zero, and the length of the table is increased by two. 
ENTER also forms a jump switch in X5, from the exam.ination of X2, 
which will effect transfer of control to the appropriate linkage 
manipulating routine after all registers are set up. 

5 . 6 SECOND 

5,6,1 This point is entered when it is determined that the new symbol 
is the second entry of this list. If the new symbol is greater 
than the current symbol, control transfers to routine G2 . If it 
is less, control goes to routine L2 . 

5.7 L2 

5.7.1 L2 sets P- of the current symbol (C) equal to the ordinal of the 
new s'^'m.bol , and transfers control to RFTRN* 
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5.8 G2 

5.8.1 G2 sets P+ of C = the ordinal of the new symbol, and transfers 
control to RETRN. 

5 . 9 NWENTL 

5.9.1 This routine stores P+ of the new symbol, clears P+ of C-1, sets 
and stores P— of the new svm.bol = the ordinal of C— 1 - stores P+ 
of C-1, and jumps to RETRN. 

5.10 CENTL 

5.10.1 This routine stores P- of C-1, sets and stores P- of C = the ordinal 
of the new symbol, sets and stores P-f of C = the ordinal of C-1, 
and jumps to RETRN. 

5.11 NWENTG 

5,11,1 This routine stores P+ of the new symbol, sets and stores P^ of 
the new symbol = the ordinal of C, clears P- of C-1, and jumps 
to RETRN.' 

5.12 CNETG 

5,12,1 This routine stores P+ of C-1, sets and stores P+ of C = the ordinal 
of the new sym.bol, sets and stores P- of C = the ordinal of C-1, 
and jumps to RETRN. 

5.13 LNBASN 

5,13.1 This routine sets P+ of the new symbol = the ordinal of C. If 
rearrangement of the list is necessary, the ordinal of the new 
symbol is stored as the head of the list and control goes to 
NVJENTL. If rearrangement is not necessary (P- of C-1 is not zero) , 
the list head stays the sam.e and control transfers to L2 . 

5.14 LNBASC 

5.14.1 If P+ of C-1 is not zero rearrangement is not necessary and 

control goes to L2. If rearrangement is necessary the ordinal of 
C is stored as the new head of the list, P- of C-1 is set to 
zero, and control goes to CENTL. 

5.15 GNBASN 

5.15.1 If P+ of C-1 is not zero rearrangement is not necessary and 

control goes to G2, If rearrangement is necessary the ordinal 

of new is stored as the new list head, P+ of new is set = the 

ordinal of C-1, and control goes to NWENTG. 
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5.16 



GNBASC 



5.16.1 This routine sets P+ of C-1 to zero, and if rearrangement is 

necessary (P- of C-1 = zero) the ordinal of C is stored as the 
new list head. Control then goes to CENTG. If rearrangement 
is not necessary the list head is not changed and control transfers 
to G2, 

5.17 LLR, LRR 

5,17.1 If P- of C-1 is not zero no rearrangement is necessary, and 

control goes to L2. If rearrangement is necessary, P+ of new 

is set to the ordinal of C and stored, P (P- for LLR, P+ for LRR) 

of C-2 is set = the ordinal of new and control goes to NWENTL. 

5.18 LLL, LRL 

5.18.1 If P+ of C-1 is not zero rearrangement is not necessary, control 
goes to L2. If rearrangement is necessary P (P- for LLL, P+ for 
LRL) of C-2 is set = the ordinal of C and stored, P- of C-1 is 
set = zero, and control transfers to CENTL. 

5.19 GLR, GRR 

5.19.1 If P- of C-1 is not zero no rearrangement is necessary and control 

goes to G2. If rearrangem.ent is necessary P(P- for GLR, P+ 

for GRR) of C-2 is set = the ordinal of C and stored, P+ of C-1 

is set to zero, and control transfers to CENTG. 

5.20 GLL, GRL 

5.20,1 If P+ of C-1 is not zero no rearrangement is necessary and control 
goes to G2. If rearrangement is necessary P (P- for GLL, P+ 
for GRL) of C-2 is set = the ordinal of the new symbol and stored, 
P+ of the nev7 symbol is set = the ordinal of C-1, and control 
transfers to NWENTG. 



5.21 
5.21 



RETRN 



RETRN is the not-found exit. B5 is set to 1, B2 is set to twice 
the ordinal of the current symbol (Bl+Bl) , the first word of the 
entry is loaded into X2 , and a jump is taken to the address 
specified in the B7 register. 



5.22 



FOUND 



5.22.1 FOUND is the found exit. Its function is exactly the same as 

RETRN except that the jump is taken to the address specified in 
B7 + 1. 
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6.0 Formats 

6.1 PASS 1 SYMBOL TABLE FORMATS 

During phase 1, symbol table entries will occupy two words, A and B 
59 17 16 15 14 13 12 11 

A NAME P U F . C D E P + 

The first word of the entry (A) will have the above form.at, with 
the following meanings: 

NM!E: (bits 59-18) the name of the symbol or label, 7 

(6 if a LABEL) or less display code characters left 
justified, with blank fill, 

FP: (bit 17) = 1 if the name is a formal parameter or 
RETURNS . 

U: (bit 16) = set - 1 when symbol becomes defined, 

F: (bit 15) = 1 if the symbol is the name of a function 

(unless the subprogram being processed is this function) . 

C: (bit 14) = 1 if the name appears in a COM-MON statement, 

D: (bit 13) = 1 if the name has been dimensioned, 

E: (bit 12) = 1 if the nam.e has been changed due to 

EQUIVALENCEing, A "base" and "bias" appear in the 
first word of the DIMENSION LIST entry for the name. 

P+: (bits 0=11) - the ordinal of the symbol table entry, 

in this list, which is the next greater entry than this 
entry, or if none exists, P+ = zero. 

If NAME is the name of a symbol, word B will have the following 
format : 

59 56 55 54 53 52 41 4^0 39' 34 19 18 13 12 11 

' A E E V B 

B T S X N DIMP N OP S RB Q- P- 

F T TJ 
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where T (bits 59-56) is the type of the symbol: 

6 = LABEL 

7 = RETURNS parameter 

10 = NAMELISt' group variable 
(namelist name) 

11 = PROGRAM, SUBROUTINE, BLOCKDATA 

IF PROGRAM: ASF (BIT 55) = 

ENT (BIT 53) = 1 

IF SUBROUTINE: ASF (BIT 55) = 1 

ENT (BIT 53) = 1 






= LOGICAL 


1 


= INTEGER 


2 


= REAL 


3 


= DOUBLE 


4 


= COMPLEX 


5 


= ECS variable 



ENT (BIT 53) = ' 
12 = ENTRY statement name 



Note: (1) FUNCTION subprogram nam.e will have type 0-4 and ENT = 1 
in word B. 

(2) Ordinal 1 of SYMTAB will always be the name of the 
routine. 

ASF (BIT 55) = Statement Function 

EXT (BIT 54) = External symbol (variable in an external statement) 
or implicit function reference, or object of a call. 

ENT (BIT 53) = Entry point. 

DIMP (BITS 52-41) = INDEX (the ordinal times 2) of the dimension 
and/or equivalence information if bit 13 and/or 
bit 12 of word A = 1. 

S (BIT 19) = 1 if BSS storage is to be assigned when DPCLOSE is 
called. (This is for equivalence processing. If 
this bit is set, DPCLOSE will assign storage for 
the variable (or array) and then set the C bit in 
word A so that duplicate storage is not issued when 
the END statement is processed.) 

^PJ (BIT 4 0) = 1 if the name has been used as a variable name. 

RB (BITS 18-13) = relocation base indicator (see PASS 2 SYMBOL 
TABLE FORMATS, section 6.2.). 
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BC (BIT 12) = 1 if BIT 14 of word A = 1 and the name is in blank 
common , 

P - (BITS 11-00) = the ordinal of the symbol table entry, in this 
list, which is the next lesser entry than this 
entry, or if none exists, P- = zero. 

OP (BITS 34-39) of word A = the order of appearance of the formal 
parameters or the variables in a RETURNS list 

Note: (1) if bit 15 (FUNCTION) of A = 1, then bits 51-46 of 
B = the number of argum.ents. (If NAME is a basic 
external, then Bit 45 = 1; if NAME is an intrinsic 
function, then Bit 44 = 1) . 

(2) if bit 17 (FORMAL PARAMETER, DUMMY argument) of 

A = 1, then bits 39-34 of B = the order of appear- 
ance of the dummy argument name in the argument 
list, such that, if the nam.e is the first" in the 
list, bits 39-34 =0; if the second, bits 39-34 = 1, 
etc, 

(3) if type = 7 (RETURNS parameter), then bits 39-34 

of B = the ordinal of the parameter in APLIST. The 
ordinal is numbered consecutively beginning with 
zero (as in note #2 above) . 

If NAME is a statement label, then word B has the following format 

59 ,56 55r^4~?T>- 50 49" 38 24 23 12 11 

|G ; . R I ! I R ' R, ' 

T i " : R S S If i F A BLC L P- OR 

(=6) ^0 ; Z N N JM I M S 

where T and P- are defined as above, and the other fields are 
defined as follows: 

1) If the T field is set to 6 (label indication) then a one bit 
field called G is needed. A G field of 1 indicates that the 
label has been generated by the DO processor. A G of 
indicates a normal label. 

a. If G = then the following fields are needed : 

RZ = 1 bit field, set if label is referenced prior to 
current DO next. 
RSN = 1 bit field, set if label is referenced as statement 
number. 
SN = 1 bit fielc3, set if label has been defined as a 
statement number. 
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FM = 1 bit field, set if label is defined as a format, 
RFM = 1 bit field, set if label is referenced as a format. 
L = a 12 bit field containing the ordinal in SYMTAB of 

the loop in which the label is defined or referenced, 
HAS = 1 bit field, set if label referenced in ASSIGN 
statement, 

b. If G = 1 then the following fields are necessary ; 

R = 1 bit field, set if all integer variables are 
considered to be re-defined within the loop. 

E = 1 bit field, set if loop may be entered at a point 
other than the top. 

X - 1 bit field, set if loop may be exited at a point 
other than the terminating statement of the DO. 

M - 1 bit field, set if loop control variable must be 
materialized (placed in memory) . 

V - 1 bit field, set if control variable is equal to 
incremental limit. Example: DO 10 K = 1, N, K 

J - 1 bit field, set if loop contains an external 
reference. 

I - 1 bit field, set if loop contains another loop. 

BLC - 15 bit field, binary line count. 

The seven flags for G = 1 must be ordered as E, X, I, M, V, J, R 
from left to right in adjacent bits. 

2) If T is something other than six then standard fields of the 
symbol table will be observed. 

6.2 PASS 2 SYMBOL TABLE FORMATS 

During Pass 2 there is only one word per symbol table entry. The 
original bits 59-12 of word A (from Pass 1) occupy bits 59-12 in 
the Pass 2 entry. For symbols, the original bits 24-13 of word B 
(from Pass 1) occupy bits 11-00 in the Pass 2 entry. For labels, 
the original bits 59-4 8 of word B (from Pass 1) occupy bits 11-00 
in the Pass 2 entry. 
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SYMBOLS : 
59 



18 17 16 17 14 13 12 11 6 5 



NAME (symbol) 



P U F C D E 



RB 



V7here: RB = relocation base indicator (0 = program relocatable, 
or a formal parameter if the FP bit is set; l-^e^ = 
C0MI40N relocatable, such that if RB of one sym.boi = 
RB of another symbol, then those two symbols are 
relocatable to the same COMMON block; 11 - too many 
COMMON blocks. 



LABELS : 
59 



NAME (label) 



17 16 15 14 13 12 11 8 


76543210 

G ' 

" E X I M V J R 

I 


F U F C D E T 
P ' (=6) 



OR 



(same as above) 



76543210 

G R R R: 
" Z S S F F 

N N M M, 



See write up under PASS 1 SYMBOL TABLE FORMATS (section 6.1) for 
explanation of codes used in the above diagrams. 

During the compile phase of Pass 2, word B of the two v/ord sym.bol 
table holds various quantities. 

1) For formal parameters, bits 19-36 hold the total length of 
the relocation base associated with each form.al parameter, 
and bits 41-52 hold the increment due to any one sequence of 
code. 

2) During NAMELIST processing the length of the relocation base 
for formal parameters is held in bits 20-33 and is moved to 
19-36 when executable code appears. 

3) When a symbol or label is defined by the compiler (not the 
FTNX assembler) , the address definition relative to zero of 
the proper relocation base is held in bits 19-36 of word B 
and the relocation base ordinal is held in bits 12-18. 

4) When a symbol is to be defined by the assembler, bit 36 
of word B is set to 1. 
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During the assembly phase of Pass 2, word B of the symbol table 
is reformatted to hold: 



39 ^1 36 



RL 



iLii 



^/t^ii 



RA 



RB 




RL = relocation code: 

= absolute 

1 = program 

2 = common 

3 = external 

RA = relocation address relative to relocation base RL. 

RB = relocation base ordinal: 

When RL = 1, RB ranges from 0-7 3 for the maximum number of 
local blocks. 

When RL = 2, RB ranges from 0-59 for the m.aximum number of 
common blocks. 
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6.4.1 Entry routines for the possible cases where the new symbol is greater 

than the symbol at c. 

IDENTIFIER PICTURE ROUTINE 

xab CURRENT REARRANGEMENT (if any) 

000 NONE G2 



\ P New 



000 




New 



C-1 a New 




GNBASC 



New 



001 



000 



010 



001 



Oil 




New 



C ,C-1 

New 




New 




S'l P New 




C-2 



C-2 




GNBASN 



GRR 



GRL 



GLR 



GLL 
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6.4.2 Entry routines for the possible cases where the new symbol is less 

than the symbol at c. 

IDENTIFIER PICTURE ROUTINE NAME 

xab CURRENT REARRANGEMENT (if any) 

100 \^^^ / NONE L2 



010 



iNew 



'v^-1 



VNew 



LNBASN 



Oil 



100 



110 



101 



111 



C-1 




.New 




C-1 



New ^ C-1 LNBASC 

^C 





New 



C-2 




C-2 



LLR 



LLL 
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7.0 When LSTPROC fs entered It is assumed that SYMI (RA+12B) has been 
set to Field Length - 1. SYMEND (RA+I3B) must be initially set to 
Field Length -1, thereafter LSTPROC updates SYMEND each time a new 
symbol or label is entered in the symbol table. 

8.0 In order to find a given symbol in the symbol table (or to determine 
that the symbol is not yet in the table) with the least number of 
comparisons, the symbol table is actually broken down into a number 
of short lists. Each symbol in a list is linked by ordinals to the 
other symbols in the listj and each time a s"^mbol is added to 3 
list the links are changed such that any symbol within the list 
can be found with the least number of comparisons. Each symbol 
contains a pointer (P+) to the next greater symbol in this list 
a pointer (P-) to the next lesser symbol in this list, and each 
list is kept as symmetric from a given starting point as possible. 
For example, a list reflecting the best possible symmetry could look 
as follows: 



and 




where the symbol H is the start, or head of the list. In this case, 
where the number of symbols is 15, the maximum number of comparisons 
to find a given symbol would be four. In this example, symbol H 
would have a P+ pointer to symbol L and a P-pointer to D. L has 
a P+ pointer to N and a P- pointer to J, etc. Each of the symbols A, 
C, E, G, I, K, M, and would have P+ and P- equal to zero indicating 
that the particular symbol is the end of this path In this particular 
list and if a comparison has not been reached by now the symbol being 
searched for must be entered in the table and linked to the last com- 
pared symbol . 

Although each list is linked only within itself, this does not mean 
that the elements of one particular list must be stored consecutively 
in memory. As each new symbol is encountered it is simply stored 
in the next available location, and pointers are set up to reflect 
its location in the table. 

Each one of the short lists must have a starting point, or head of 
the list. Further, we must have a way of determining what list a 
particular symbol belongs to. This is done by commutat ively forming 
(by the use of shifts and the exclusive OR (logical difference 
operation) a 7-bit value or a 5-bit value for symbols or labels 
respectively. This value is an index into one of two local tables 
(SLIST for symbols, LLIST for labels) which contain symbol table 
ordinals which point to the head of that list. initially the SLIST 
and LLIST tables of list heads are set to zero. If a given cell is 
loaded that is zero, then we know this is the first symbol in this 
list and therefore no searching must be done. The symbol Is merely 
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entered, set as the head of this list, and a return is made to 
the cal ler. 

When a list has grown to 3 symbols the head of the list may be 
changed to point to another symbol of that list in order to maintain 
s.ymmetry. However, after the list has 3 symbols in it the list head 
will never again change. Although this method does not guarantee 
maximum symmetry for a list there is a point where the time required 
to rearrange the list head throughout the life of the list is 
greater than the speed gained in subsequent searches. 
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CONVERT 
].0 General Information 

],\ CONVERT converts the display code representation of a constant to its 

internal binary form. The binary form is placed in a table and the 
user now refers to the constant by the I , H of the table name and the CA 
of the location of the constant in the table CON.. 

2.0 Usage 



2.1.1 Determines which of the three options is desired. 

2.1.1.1 The constant is converted to binary form, placed in CONLIST, if not 
already there and the caller informed of I , H and CA to be used to 
reference the constant .Conversion and add to CONLIST. 

2.1.1.2 The constant is converted to binary form and returned to the caller. 
Conversion only. 

2.1.1.3 The constant in the form supplied by the caller is placed in CONLIST 
if not already there and the caller inforirted of I , H and CA. Add to 
CONLIST only. 

2.1.2 Calling Sequence and Returns. 

The calling sequence is RJ CONVERT. Case 2.1.1.1 expects register Bl 
to be 4-0 and the E-list entry for the constant to be in register XI. 
Upon successful return register XI holds H in bits 0=17, I in bits 
18-29 and CA in bits 30-4? all other bits being 0. 

Case 2.1.1.2 expects register Bl to be negative and the E-list for 
the constant to be in register XI. Upon return, the converted form 
of the constant is held in XI, and X2 if the constant is a two word 
element. 

Case 2.1.1.2 expects register Bl to hold 1 or 2 the number of words 
in the caller supplied constant and XI and X2 to hold the one or 
two word element, XI the first part of the constant and X2 the second 
part. 

2.1.3 Processing Flow Description 

CONVERT quickly determines the option desired. The first call for either 
case 2.1.1.1 or 2.1.1.3 will cause the symbolic name CON. to be placed 
in the symbol table. For Case 2.1.1.1, the display code of the constant 
is formed for DEC, DEC is called to convert the constant, then CONLIST 
is searched for the converted form of the constant. If the constant 
already appears the I, H ancj CA is returned to the caller. Otherwise, 
the constant is placed in CONLIST. For Case 2.1.1.2, DEC is called to 
convert the constant. DISPLAY is the routine called to process all forms 
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of Hollerith constants. Case 2.1.1.2 the first word of the constant 
is returned in XI. For cases 2.1.1.1 and 2.1.1.3, the constant is put in 
the COMPASS file following a USE HOL.. The constant instruction is a 
DIS1, except for the last word which occupies a VFD 60/nH or nL or nR 
depending upon the form of the Hollerith constant. The first call to 
DISPLAY will cause the symbolic name HOL. to be placed in the symbol 
table. 

3.0 Diagnostics Produced 

3.1 Fatal to Compilation 

3.1.1 CONLIST TOO BIG. TOO MANY CONSTANTS. MORE MEMORY REQUIRED. 

3.2 Fatal to Execution 

3.2.1 CONSTANT CONVERSION ERROR. 

4.0 Environment 

CONVERT expect CONl (RA+26B) , DOl (RA+30B) , DOLAST (RA+31B) and 
ELAST (RA+14b) to be set prior to being called. CONVERT maintains 
CONl and CONLAST the first and last locations used by CONLIST. 100 
locations are initially reserved for CONLIST. If more room is required 
the DO tables are moved 100 locations, if possible, and the pointers 
maintained. When 100 more locations are not available ((ELAST) being the 
highest+1 address that can be used) a fatal to compilation diagnostic 
is issued via FATALER. 

5.0 Structure 

5.1 CONVERT determines if the option is "store only" and if so, jumps to 
PACK, If not, a check is made for the constant being any form of 
Hollerith and if so, a jump is made to DISPLAY. For the "convert only" 
option, a jump is made to PRECON to arrange the input to DEC. For the 
"convert and store" option, a jump is made to PRECON, then PUT. 

5.2 PACK determines the first call for a store and calls SYMBOL to put the 
name CON. in the symbol table and retain its ordinal for use as the 

H field in the 1, H and CA i reformat ion. 

5.3 PRECON arranges the display code of the constant as follows: digits 
are packed a maximum of seven per word left adjusted to bit 59 and 
zero filled, +-, or B are stored in bits 0-5 with zero fill, and E or 
D are stored in bits 5^-59 with zero fill. 



5.4 



PUT places the one or two word converted constant (or caller supplied 
constant) into CONLIST if the constant is not already in CONLIST. 
Initially 100 locations are reserved for CONLIST and will be expanded 
100 locations at a time moving the DO tables if necessary until the 
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time when 100 locations are not available (CONLIST) or the DO tables 
running over ELAST when a fatal to compilation diagnostic is issued. 

5.5 DEC does the actual conversion. 

5.6 DISPLAY determines the first call for a storing option and calls SYMBOL 
to place the name HOL. in the symbol table and retain the ordinal to 
use as H in the i, H and CA information. For the convert only option, 
the first word of the Hollerith constant is returned to the caller in* 
register XI. For any storing option, the constant is placed in the 
COMPASS file and the user returned the !, H and CA information. Any ten 
character part of the constant is packed following a DIS 1, and any part 

of the constant is packed following a VFD 60/n H or L or R with n being the 
number of characters. The first Hollerith constant put in the COMPASS 
file will have HOL. in the label field. A DATA instruction is put in the 
COMPASS file to terminate each constant with a word of zeros. Finally 
a USE DATAJs put in the COMPASS file. 

6.0 Formats 

6.1 I, H and CA word returned to the caller is VFD 12/0, I8/CA, 12/1, I8/H. 

6.2 CONLIST is the name of the table of converted or user supplied constants. 
.TROE. is converted to -1 and .FALSE, is converted as +0. 

7.0 Modification facilities. 

The coding is straight forward 
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ERPRO and FORHAT 

l.D General Information 

1.1 Task Description - Error Processing 

The error processing during compilation is divided into 
two routines: ERPRO in PASS 1, and PSECTL in PASS 2- 
The final output resulting from detecting an error will 
be the card sequence number {compiler generated! on which 
the error occurredr the severity -C fatal to executionr etc>T 
an optional symbo 1 r a name or word to further clarify the 
messager and the actual diagnostic -Cup to IDb characters! . 
ERPRO is located in the 1-D overlay- 

1-2 Task Description - FORHAT Scanner 

The FORMAT scanner processes FORHAT statements and checks 
for errors at compilation time- The scanner squeezes out 
blanks and redundant commas- Before scanning the FORMAT 
for validityr the statement label is checked for validityr 
recorded in the symbol tabler and sent to the COilPS file- 

E-D Usage 

2-1 Entry Point Names - Error Processing 

In general the calling sequence is^ 



SBb 


error number 


Sb7 


return 


E(3 


entry point 



Using the above calling sequencer ERPRO would expect an 
E-LIST entry in X^r or if XH is zero a display code mes- 
sage in X3 -Cbits Mfi-ST zeror bits D-M7 display code>- 

Using the following calling sequencer no message is 
expected in X3 or XH- 

SBb -error number 

Sb7 return 

E(3 entry point 

The parameter in Bb is a symbol or number which is equated 
to the ordinal of the error in the error directory table 
in PASS 2. 
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2.1.S ERPRO 

2.1.3 ASAER 
S. 1.3.1 



This entry is used for all messages which 
resulted from errors which are fatal to 
execut ion. 

This entry is used for all messages which denote 
non-USASI usage. 

A reference to this entry point will check a flag 
called NASAFL and if the flag is non-zeror the 
message will be entered into the error tabler 



otherwiser an immediate exit 



is taken. 



2.m 



E.m.i 



FATALER 



E.l.S 



E.l.S.l 



ERPRO I 



This entry is used for all messages which resulted 
fpom errors which are fatal compilation. 

A reference to this entry will result in making 
an entry in the error table and setting the fatal 
to compilation flag -LFXl. Control does not 
return to the caller- Calls to SCANNER are. then 
made until an ZHD card is encounteredr then a 
request to j oad PASS E is made. 

This entry point is used for all diagnostics 
which are informative in nature. 

Informative diagnostics up until -CID minus the 
maximum]- are placed in the table and at that time 
an informative diagnostic is issued stating that 
no more informative diagnostics will be put in 
the table. 

FORHAT has one entry point. 

Upon entry with a legal statement label r FORMAT scanning 
takes place. FORHAT is entered by both PHICTL and PHlCTLr 
since formats may be among both executable and non- 
executable statements. 

^-E-E Calling Sequence 

FORNAT is entered via a return jump and upon completion 
of its tasksr exits through its entry point. 

E.E.3 Flow of Processing 

The characters which comprise a FORMATr beginning with the 
left parenthesisr are scanned sequentially until the match- 
ing right parenthesis or an irrecoverable error condition 
is encountered. 



E.E.I 
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3.D Diagnostics 

3-1 Enron Pnocessing 

Numben EDb Infonmative 

DUE TO THE NUHEROUS ERRORS NOTED-, ONLY THOSE UHICH ARE 

FATAL TO EXECUTION WILL BE LISTED BEYOND THIS POINT 

Numben IID Fatal to Compilation 

ERROR TABLE OVERFLOW 

3-2 FORMAT 

3.2.1 Fatal to Execution 

PRECEDING CHARACTER ILLEGAL AT THIS POINT IN CHARACTER 
<vTPTM(C_ rppAP crnM pap TUT<r fapmat <C'TAD<r^ urpr 

<^ll\J.lllu- l_l\l\vi\ fcj\_/1lll I v|\ IIIJ.O I wiMI/ni wJlvi o IIL_l\l_. 

ILLEGAL CHARACTER FOLLOWS PRECEDING FLOATING POINT 
DESCRIPTOR. ERROR SCAN FOR THIS FORHAT STOPS HERE- 

ILLEGAL CHARACTER FOLLOWS PRECEDING ArlrLrO, OR R 
DESCRIPTOR. ERROR SCAN FOR THIS FORMAT STOPS HERE- 

ILLEGAL CHARACTER FOLLOWS TAB SETTING DESIGNATOR. ERROR 
SCAN FOR THIS FORMAT STOPS HERE- 

ILLEGAL CHARACTER FOLLOWS PRECEDING SIGN CHARACTER. 
ERROR SCANNING FOR THIS FORMAT STOPS HERE. 

PRECEDING CHARACTER ILLEGALn SCALE FACTOR EXPECTED. 
ERROR SCANNING FOR THIS FORMAT STOPS HERE- 

PRECEDING HOLLERITH COUNT IS E(3UAL TO ZERO. ERROR 
SCANNING FOR THIS FORMAT STOPS HERE- 

FORMAT STATEMENT ENDS BEFORE LAST HOLLERITH COUNT IS 
COMPLETE. ERROR SCAN FOR THIS FORMAT STOPS AT H. 

FORMAT STATEMENT ENDS BEFORE END OF HOLLERITH STRING. 
ERROR SCANNING STOPS HERE- 

PRECEDING HOLLERITH INDICATOR IS NOT PRECEDED BY A COUNT- 
ERROR SCANNING STOPS HERE WITH FORMAT INCOMPLETE- 

ZERO LEVEL RIGHT PARENTHESIS MISSING. SCANNING CONTINUES 

PRECEDING FIELD WIDTH OUTSIDE OUTER LIMITS FOR RECORD 
SIZE. SCANNING CONTINUES. 
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PRECEDING RECORD OUTSIDE OUTER LIHITS FOR RECORD SIZE- 
SCANNING CONTINUES. 

TAB SETTING IS OUTSIDE OUTER LiniTS FOR RECORD LENGTH- 
SCANNING CONTINUES. 

3.2.E Non-USASI 

PLUS SIGN IS AN ILLEGAL CHARACTER. 

PRECEDING FIELD DESCRIPTOR IS NON-USASI. 

FLOATING POINT DESCRIPTOR EXPECTED FOLLOUING SCALE FACTOR 
DESIGNATOR. 

TAB SETTING DESIGNATOR IS NON-USASI. 

HOLLERITH STRING DELINEATED BY SYMBOLS IS NON-USASI. 

3.2.3 Informative 

SEPARATOR HISSING-, SEPARATOR ASSUflED HERE. 

X-FIELD PRECEDED BY A BLANKn IX ASSUflED. 

X-FIELD PRECEDED BY A ZERO-, NO SPACING OCCURS. 

PRECEDING FIELD WIDTH IS ZERO. 

PRECEDING FIELD UIDTH SHOULD BE 7 OR IIORE. 

FLOATING POINT DESCRIPTOR EXPECTS DECIHAL POINT SPECIFIED- 
OUTPUT WILL INCLUDE NO FRACTIONAL PARTS. 

FLOATING POINT SPECIFICATION EXPECTS DECIHAL DIGITS TO BE 
SPECIFIED. ZERO DECIHAL DIGITS ASSUMED. 

REPEAT COUNT FOR PRECEDING FIELD DESCRIPTOR IS ZERO. 

FIELD UIDTH IS OUTSIDE INNER LIHITS. CHECK USE OF THIS 
FORMAT TO ASSURE DEVXCE CAN HANDLE THIS RECORD SIZE. 

PRECEDING SCALE FACTOR IS OUTSIDE LIMITS OF REPRESENTATION 
UITHIN THE MACHINE. 

SUPERFLUOUS SCALE FACTOR ENCOUNTERED PRECEDING CURRENT 
SCALE FACTOR. 

RECORD SIZE OUTSIDE INNER LIMITS- CHECK USE OF THIS FORMAT 
TO ASSURE DEVICE CAN HANDLE THIS RECORD SIZE- 
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FIELD yiDTH OF PRECEDING FLOATING POINT DESCRIPTOR SHOULD 
BE 7 OR nORE THAN DECIHAL DIGITS SPECIFIED- 

NUMERIC FIELD FOLLOWING TAB SETTING DESIGNATOR IS EdJUAL 
TO ZERO-, COLUriN ONE IS ASSUNED- 

NUHERIC FIELD OniTTED IN PRECEDING SCALE FACTOR. ZERO 
SCALE ASSUMED. 

NON-BLANK CHARACTERS FOLLOU ZERO-LEVEL RIGHT PARENTHESIS. 
THESE CHARACTERS WILL BE IGNORED. 

TAB SETTING HAY EXCEED RECORD SIZE DEPENDING ON USE- 

3.E.H Each error message will be preceded by a 4fi bit message 

stating the card and column number of the error encountered 
Computation and the form of this message is described in 
Section fl- 

M.D Environment 

M.l Error Processing 

4.1-1 Information provided by other processors- 

H-l-l-l In location m^B and H7Br SCANNER places information regard- 
ing the current card number- Location 4bB contains in dis- 
play code the line number as printed on the listingr loca- 
tion H7B contains in binary an offset count which ranges 
from 1 to 10- 

4-1.1-E The location of the error table is an entry point name in 
FTN cal led ERTABL- 

4.1-1-3 NASAFL is contained in location 4EB and is set by the 
control card cracker- 

4-1-2 Information generated by ERPRO- 

4-l.E.l Location 4DB contains the number of errors in binary 
encountered during a single compilation- 

4.E FORMAT 

FORMAT scanner expects character to be packed ten charac- 
ters per word in display coder where the first character 
is a left parenthesis. FORMAT expects the first word of 
information at the location specified by SELISTr and the 
last word of information at the location specified by 
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ELAST- FORHAT allows a maximum of three levels of paren- 
thesesr an input record length of ISO charactersr and an 
output record length of 13b characters. In general r 
formats must be in accordance with USASI FORTRAN standardsr 
with the addition of the tab setting and Hollerith string 
capabilities. Legitimate format field descriptors are. 
of the following form: 



■t-t+j-j- -LnJ- PJ- ir-i- 

-Cr> ^a|i|l|o|r^ w 

nHh-jjhg" " -h 
-Cn> X 



/^ 1^ 1^ I ^v 

^j; |L |r |b^ w- a 



Tm 

where: 

1. In the above description a vertical bar separates 
alternat ivesn angle brackets denote that one and 
only one of the enclosed alternatives must be 
chosen^ square brackets denote that none or one 
of the enclosed alternatives may be chosen- 

a- The letters D, E, Fr Gr Ar Ir Lr 0, R, Hr and X 
indicate the manner of conversion or editing 
between the internal and external representations 
and are called the conversion codes- 

3. w and n are integer constants representing the width 
of the field in the external character string. 

^' d i s an integer constant representing the number of 
digits in the' fract ional part of the external char- 
acter string. If d is omitted it is assumed to be 
zero. 

5. m i s an integer constant representing the tab 
setting for the external character string. 

b. r is the repeat count -Can optional r non-zero integer 
constant} indicating the number of times to repeat 
the succeeding basic field descriptor. 
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7- -[+|-> -[n> P is optional and represents a scale 
factor to be applied to the processing of the 
succeeding conversion code if a D|e|f|G. 

fi- Each hj is one of the characters capable of 
representation by the processor. 

T. *...♦ encloses hollerith information {excluding an 
aster isk>r up to one record in length- 

ID. For all descriptors other than ♦...♦r field width 
must be specified^ for descriptors of the form 
0|e|f|G^ wdr w must be greater than or equal 
to d+7. 

P/^rn^ -,*- f;^l^ ^^^ ^^ -^i- n„^ -.^^ 4-U/-> c^lr^c^U =ir^r4 +-k/-> /-r^vntn =% _ 

Field separators are used to delimit field descriptors. 
Field separators are optional in the following cases- 

1 . after * ... * 

2. after nHhihg- • • hp, 

3. after nX 

H. after -C+l-l -Cnl P 

S. after another field separator 

b. before or after a right parenthesis 

In all other cases a field separator is expectedr and a 
diagnostic is issued if the separator is missing. Scan- 
ning of the format will continue in such a case. Blanks 
and commasr where unnecessary r are squeezed out of the 
format specification- 

S.D Structure 

5-1 Hajor subroutine names in ERPRO. 

5.1.1 ERPRO- This subroutine checks if room exists in the 

table and determines type of parameter that 
accompanies the message- 

S.l.E OPER. This subroutine decodes the E-list element- 

S-1-3 TABOFLO. This subroutine issues diagnostic IID and makes 

the cal Is to SCANNER. 

S-l-H PK- This subroutine sets up the entries in the error 

table and updates the cell -CERLOO which contains 
the address of the next available cell in the 
error table- 
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5 , 2 FORMAT 

5.2.1 Transition Diagram 

Format scanner has been implemented utilizing transition 
diagram oriented processing. A transition diagram 
describes action to be taken for each syntactic type 
encountered in a string. The transition diagram consists 
of circles, boxes, unbroken, and broken line segments 



O - 



a NODE, or state in the flow which has 
been reached at some point in the string. 



a set of intermediate processing on the 
string between nodes, or states, which can 
be made analogous to a FORTRAN subroutine. 



^ ::= action in processing the string. Over a 

solid line segment, character advancem.ent 

takes place; over a broken line segment, 
character advancement does not take place. 
The character (s) , or group of characters 
(i.e. digit ::= (0,1,2,3,4,5,6,7,8,9)) 
which direct the processing to a particular 
state are inscribed on the line segment. 

Character advancement can also occur in intermediate 
processing. 

The transition diagram which traces the flow of processing 
for the format scanner follows. 
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5.2.2 Micro Definitions for Transition Diagram 

Micro definitions for the format transition diagram are 
formed in the following manner: 

node micro: := branch-Cbranchl totherb] I otherb 

branch: := (char testlmask test^ tignorel : transfer designation 

otherb: :== /-Cchar^l ;transfer designation 

transfer designation: := node name t, routine name t (param) 11 

char test::= \=l-l^^ ^char -j^ I expr^) 

chari::= ^aIbI C| . . . I 8 I 9 I + | - I * I /I $ IJ M ( I ) I [ I ] Kl < |il> I = |A| VJA 1 1 1 : |-»> 

expri|_::= compass expression designated by more than one character. 

mask test::= I-»lC<t]l ■Cchar2> I "Cchar2>],^] 

char2::= <a|b|c| . . . I 8 I 9 I + | - I * I /I $ 1,1 I . I( I ) I [ Kl^ 1^1 >l = MI^ U 1 1 1 : |-i> 

ignore: := ,-Cchar3> 

char3::= <AiB|c| . . . I 8 I 9 I +| -I * I /I $ 1,1 I . I ( I ) I C I ] l< l< lil >l = l>»l ^U 1 1 1-»> 

node name : : = name 

routine name::= name 

name::= letter {letter Inumber I $) .}q 

letter::= ^aIbI c| . . . I z) 

number::= <0 1 1 1 2 I 3|4 I 5 I 6 I 7 I 8 I 9^ 

param: := compass expression 

For example , at node 7 : 

= ,N0PACK:N0DE7 - a blank is not packed, the flow is advanced 

one character and sent back to node 7. 

[0123456789] :N0DE1,DECIM - a digit is packed, the flow is 

advanced one character, and sent to NODEl, 
via a set of intermediate processing, DECIM. 

/ELSE: NODEl, IERROR( 7) - any other character at this node 

inhibits character advancement, and flow is 
sent to NODEl, via TERROR, the informative 
error processor, with a parameter of 7, 
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5-2-3 Table Formed from Definitions and Table Processor 

The micro definitions generate one word table entriesr which 
are acted upon by the transition diagram table processorr 
TRANSITf all of which is located in FLY. TRANSIT processes 
the character string along the path defined by the micro _ 
definitions of the transition diagramr fetching and storing 
characters where required. 

5-2-4 Intermediate Processingr i-e Subroutines Used 
5.2.H.1 NUHBER 

Converts a string of display code numerical digits into a 
binary number which is stored relative to location NUMNr 
with a displacement of the input parameter -C-lfDrl^-n the 
input parameter specifies the number to be decimal digitsr 
a repeat count or skip spanr or a field width. Control is 
returned to the address specified. 

5.2.M-2 RANGE 

Checks for valid result of NUflBER routined range to be 
checked is specified via the calling parameter. If num- 
ber is out of ranger the error processor is called- Control 
is returned to the address specified- 

5-2.4.3 FLDCHEK 

Checks range of field elements'-, computes total field length 
and checks the range*-, record length is increased by the 
length of the total field. Record count is saved in a 
pushdown table which saves information for the 3 levels 
of parentheses. If the record count is longer than one 
recordr an informative error is produced. Control is 
returned to the address specified. 

5.2.4.4 UIDTH 

Field descriptor width handler; calls NUnBER-CD>f RANGEIllr 
and FLDCHEK-[1>- Parameter -CD> implies a floating point 
descriptorr and if the field width is not 7 or greaterr 
an informative error is produced. Parameter -ClJ for other 
descriptors! and no test is made. Control is returned to 
the address specified. 
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s.E.^.s DECin 

Handles decimal digits portion of floating point descrip- 
tors'-, calls NUnBER{-l>, and if descriptor is Dr E, or G, 
a check is made for field width greater than or equal to 
7 + decimal digits specified. If the descriptor fails 
this testf an informative error is produced. Control is 
returned to the address specified. 

S.E.M.b FLAGW7D 

Called to turn on a flag indicating a Dr Er or G type field 
descriptor. The flag is utilized by DECin to determine 
whether or not to perform a test comparing field width with 
decimal digits specified. Control is returned to the 
address si^ecif •'^d = 

S.E.M.7 ONECNT 

Initializes temporary count storage for repeat countr field 
widthr and decimal digitsr and turns off flag indicating a 
Df Er or G specification encountered. Control is returned 
to the address specified. 

S.a.M.fi DELCOn 

The last character stored in the string is fetched. If the 
character was a commar it is squeezed out of the output 
string. Control is returned to the address specified. 

S.E-M.T XBLANK 

An X descriptor was preceded by a blankr and an informa- 
tive error is issued to that effect. FLDCHEK is then 
called to update the record length count. Control is 
returned to the address specified. 

S.E.M. ID XZERO 

The skip count is tested for zero; if sor an informative 
error is issued- If the count is non-zeror FLDCHEK is 
called to update the record length count. Control is 
returned to the address specified. 

S-E.H.ll TSASI 

DELCOri is called to squeeze out redundant commas. A non- 
ASA error is produced? and control is returned to the 
address specified. 
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S.E.M.12 TCODE 



NUriBER-CDl is called to convert the tab setting pointer 
to binary. If the result is zero, an informative error 
is produced. Otherwise RECCHEK-CU is called, where the 
record count is accordingly checked and modified. Control 
is returned to the address specified. 



i- d. 4 






NUriBER-CDJ- is called to convert scale factor to binary; 
then RANGE-[-l> is called to check for validity of scale 
factor. Control is returned to the address specified. 



S-E.H.m NULLP 



An informative error is initiated and zero scaling is 
assumed. The scale flag is turned on; if previously on, 
and unusedr another informative error is produced. Con- 
trol is returned to the address specified. 

S.E.M.IS HCOUNTR 

The Hollerith count is fetched, each character is checked 
against an end-of -statement; if an end of statement is 
encountered, an error exit is taken- Otherwise the 
character is stored, the count decremented, and the loop 
continued until the count is depleted to zero. FLDCHEK 
is then called to add to the record count. Control is 
returned to the address specified. 

S.E.H.lb HSTRNGR 

Each character is compared with the end of statement and 
the Hollerith string indicator- While no match is made, 
character advancement continues. If an end of statement 
is encountered, an error exit is taken- When a matching 
Hollerith indicator is encountered the character count is 
sent to FLDCHEK where it is added to the record count. 
Control is returned to the address specified. 

5. E.^. 17 SLASH 

DELCOn is called when the input parameter indicates, and 
RECCHEK-[D> is called to check for legal record size. 
Values are checked and modified in a pushdown table which 
saves record size information for each parenthesis level. 
Current record count is reinitialized. Control is 
returned to the address specified. 
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S.^.^.lfi RECCHEK 



Current record count is checked for legal record size- 
If entry was from SLASHr control is then returned to the 
address specified. If entry was from RITEPAR because of 
a first level right parenthesisr control is sent to 
FINISH where the format is sent to the COnPS file. 
Otherwiser entry was from TCODEr and the current record 
count is set to the tab setting. The record saving 
pushdown table is modifiedr and control is returned 
to the address specified- 



S.E.M.l'^ LEFTPAR 



The parenthesis level is incremented and checked for 
validity. An invalid parenthesis level causes an error 
exit to be taken. If the parenthesis level is validr 
the level repeat count is preserved in the pushdown 
table. Control is returned to the address specified. 



S.E.M.ED RITEPAR 



DELCOn is called to delete redundant commas where appro- 
priate. Parenthesis level is checked for zero level. 
If so, RECCHEK-C-1> is calledr and control is sent to 
close out procedures. Otherwise, appropriate record 
size updating is performed on the pushdown table. The 
parenthesis level is decremented by one, and control is 
returned to the address specified. 

S.E.M.El FINISH 

Control is received by scan when a zero- level right 
parenthesis is encountered- A check is made for 
extraneous characters- The last word of the format 
is packed. If no fatal errors were encountered in the 
process of scanning, the E-LIST string is inverted and 
b word blocks of CONPASS images are sent to the COUPS 
file. Entry conditions are restored, and control is 
returned via a jump to FORMAT. 

S.E.M.EE TERROR, UERROR, FERROR 

All are entries to the error processing routine, depending 
upon the type of error incurred- The type is preserved, 
along with the error number. All critical registers are 
saved'-, then the card number and column number in which the 



C A 138-1 REV 10-e 



CONTROL DATA CORPORATION • COMPUTER EQUIPMENT GROUP 

DIVISION 



DOCUMENT CLASS. 
PRODUCT NAME — 



PRODUCT MODEL NO. 



ins 



FORTRAN Extended Version 5-D 
3PC0fi 



PAGE NO ZllH 



MACHINE SERIES. 



bM/bS/bbOD 



b.D 
b-l 



error occurred are computed and merged into the ^a bit 
message word. Control is then released to the appro- 
priate error processor- On returnr the critical registers 
are restoredr and control is returned to the address 
specified by the caller- 
Table Formats 
Error Table Format 



ST 



Sh 



M7 



IjJord 1 



E 


ERROR 
NUriBER 


riESSAGE 


ST 3D 




D 


LINE COUNT 




OFFSET 





Uord E 
b-E FORMAT 
b-E-l Hemory Pointers and Flags 

DEGFLAG - flag turned on when Dr Er or G descriptor is 
encountered; is used to determine when field 
width adequacy tests should be made- 

COLCNT - contains count for current record length; 
is checked in RECCHEK- 

FLAGPON - flag turned on when scale factor is encountered' 
turned off when utilized- Checked each time 
scale factor encountered. 



FE 

LEVEL 

NUri]) 

NUMN 

Nuriw 



- flag turned on when a fatal error condition 
has been encountered in a format- This flag 
inhibits packing the format for the COMPS file- 

- a counter which keeps track of the parenthesis 
level f where the first level is level zero- 

- location which saves the decimal field of 
floating point descriptors- 

- location which saves tab settingsr and repeat 
counters - 

- location which saves the width field of format 
descriptors- 
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PUSHDOI 



7.0 
7.1 



7.E 
7.2.1 



a table which contains four fields of informa- 
tion per wordf one word per parenthesis level- 
The information is used to calculate accumulated 
record length when an end of record is encount- 
ered. For each parenthesis levelr the following 
information is saved: 

SL indication of presence or absence of 
slash in level 

GR the group repeat count 

NL column count following last slash in 
level 

Nl column count preceding first slash in 
level 

The table will be structured as follows^ 

ST 53 35 17 D 



SLg 


'^Pq 


"^4 


NIq 


SLl 


^Pl 


"4 


Nil 



^L-nAX 


^PflAX 


nlhax 


N^llAX 



Modification Facilities 
Error Processing 

ERRHAX is an E(3U in FTNr controls the size of the error 
table- 

FORtlAT 



E(3U''s 



HAXriAX E(3U 15D 

niNllAX E(3U 13b 

PriAX Ei3U bl5 

LEVriAX E(3U E 

HOLLER EQU 1R«! 



maximum read record length 
maximum written record length 
maximum size scale factor 
maximum parenthesis level 
hollerith string indicator 



These limits may all be changed by simply modifying the 
EQU''S' 
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7.E-S Allowable Formats 

Additions and/on changes to the forms allowable for format 
descriptors may be made by adding to and/or changing the 
micro definitions in FLY r and/or adding to and/or modifying 
the specific subroutine handler-tsl- involved- 

7-2.3 Character Manipulation 

Characters are fetched and stored using two macros ^ GETCH 
and PUTCHr from words packed ten characters per word to words 
packed ten characters per wordr with a one character delay? 
SAVECHARr on storage. These macros may be modified without 
disturbing the rest of the logic of the scanner- 

a.D Method Used 

Format scanner is a left-to-r ightt character by character r 
one pass scanr implemented through TRANSITr the main routine 
in FLY r which sends the format to the part of code indicated 
appropriate by the transition diagram. The approved format 
is packedr ten characters per wordr and sent six words per 
liner to the COUPS file. The scan operates on a character 
recognition basis. Recognition causes control to be sent to 
an appropriate set of intermediate process ingr which expects 
a particular combination of characters r previously referred 
to as field descriptors. Permissible descriptors are itemized 
in Section ^. At the end of a set of intermediate processingr 
control is returned to the appropriate state in the flow of 
the scanner- Scanning terminates when an end of statement is 
encounteredr or an illegal character or character sequence is 
encountered- A running count is kept of the lengthr in char- 
acters r of the current record described by the format- Calcu- 
lation of total record length involves utilization of the 
information stored in the PUSHDOWN table described in Section 
b- Calculation and checking is done whenever a slash or a 
zero-level right parenthesis is encountered. When an error 
is encountered in the scanning processr the error processor 
is cal ledr where the card and column number in which the error 
occurred is calculated. They are computed using the following 
formu lae- 

COl"=^COLS^-'^F> ^^^^^ CONTS and COLS are computed in scanner 

N = |fwa format - current address] * ID + -CbD - -Cb ♦ char- 
acter pointer>>/b 

= CURRENT COLUMN POINTER 
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yD = -CCOL+N-ll = RELATIVE UORD POINTER 

CDNO = CD+UD = CURRENT CARD POINTER 

COLNO = COL+N + S-[t,b*UD> = CURRENT COLUHN OF CURRENT CARD 

POINTER 

This information is packed in the lower Hfi bits of the error 
word in one of the fol lowing forms ^ 

NNCDNNNN 
NNCDbNNN 
NNbCDbNN 
NNbbCDbN 

..I ^1 x: : J. ^ : ^ I -] :^ j-u^ ^^ i . .w..^ ^.,^u^^ -.^^ uu^ ^'^^^•^/-J 

field is the card number- This information is then sent to 
the standard error processing routine- 

T-D Restrictions and Other Remarks 

=1.1 ERPRO 

None 

=1.2 FORflAT 

■^.2.1 Register Usage 

Caution must be taken by the modifier of FORMAT scanner with 
respect to register usage- The following registers are used 
by TRANSITr and must be preserved in FORMAT scanner^ 

AD=mask base XD=77 77DDB 

Bl=l Al= input address Xl= input word 

BE=shift input XS=input character 

B3=node address X3=subroutine parameter 
BM=return address 

B7=shift output A7=output address X7=output word 

Caution must also be taken with respect to TRANSIT utilization 
of scratch registers- The following registers are used as 
scratch registers by TRANSIT: 

A3 

^^ x^ 

OS xs 

Ab Xt 
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The return mechanism in all cases is via ^egiste^_B^. All 
intermediate processors save and restore B^ when it is 
utilized before a return. 
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1 . General 

1.1 DATA is called by PH2CTL whenever SCANNER encounters a DATA 
statement, DATA send COMPASS pseudo*ops directly to the 
COMPS file to preset data into variables or arrays. 
Referenced by DATA are SYMBOL, CONVERT, WRWDS, ERPRO and 
ASAER. 

2.0 Usages 

2.1 Entry point name: DATA 

2.1.1 DATA processes DATA statements. 

^,x,^ jru.^\^±u ciiucxa Ljjn.±ir\ vxa a. itsuuin j tuup anu. upuii c;umpxt: Uiuii 

returns control to PH2CTL by exiting through its entry 
point. 

2,1,3 DATA translates the FORTRAN statement into COMPASS pseudo- 
ops. 

3.0 Diagnostics 

3.1 Fatal to Compilation - none. 

3.2 Fatal to Execution 

1) ILLEGAL IDENTIFIER IN VARIABLE LIST OF DATA STATEMENT. 
(#112). 

2) VARIABLE APPEARING IN DATA STATEMENT MAY NOT BE IN 
BLANK COMMON. (#113). 

3) VARIABLE APPEARING IN DATA STATEMENT MAY NOT BE A 
FORMAL PARAMETER. (#114). 

4) VARIABLE APPEARING IN DATA STATEMENT MAY NOT BE A 
FUNCTION NAME. (#115). 

5) ILLEGALLY TYPED VARIABLE IN DATA STATEMENT. MUST BE 
ONLY INTEGER, REAL, DOUBLE, COMPLEX, OR LOGICAL. (#116). 

6) ILLEGAL FORMAT OF DATA STATEMENT. (#117). 

7) ALL ITEMS IN DATA LIST OF DATA STATEMENT MUST BF 
CONSTANT. (#118) . 
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8) REPEAT FACTOR OF DATA ITEMS AND DO LIMITS MUST BE 
INTEGER. (#119). 

9) CONSTANT SUBSCRIPT OF VARIABLE MUST BE INTEGER. (#120). 

10) NO TERMINATING RIGHT PARENTHESIS AFTER SUBSCRIPT OR DO 
VARIABLES. (#121). 

11) DO CONTROL VARIABLES NOT USED AS SUBSCRIPT IN DATA 
STATEMENT. (#122). 

12) NO EQUALS SIGN AFTER DO VARIABLE IN DATA STATEMENT. 

(#123). 

13) IMPLIED DO LOOP MAY HAVE ONLY 3 LIMITS. (#124). 

14) VARIABLE APPEARING AS SUBSCRIPT BUT ITS DO LIMITS WERE 
NEVER DEFINED. (#125). 

15) NON DIMENSIONED IDENTIFIER APPEARS IN DATA STATEMENT 
WITH SUBSCRIPTS. (#127). 

16) UNMATCHED PARENTHESIS IN DATA STATEMENT. (#128). 

17) ILLEGAL CHARACTER AFTER DATA ITEM. MUST BE COMMA, 
SLASH, OR RIGHT PAREN. (#129). 

18) ONLY COM-MA OR END OF STATEMENT MAY FOLLOW TERMINATING 
SLASH OR ) . (#132) . 

19) SLASH, EQUAL SIGN, OR LEFT PAREN MUST FOLLOW VARIABLE 
LIST, (#133). 

3.3 Information Diagnostic 

1) MORE DATA ITEMS APPEAR IN DATA LIST THAN ARRAY CAN 
CONTAIN. EXCESS ITEMS ARE DISCARDED. (#126). 

3.4 Non-USASI Diagnostic 

1) NON-USASI FORM OF DATA STATEMENT. (#129). 

4 , Environment 

DATA expects that SCANNER has cracked the statement into 
E-list format and has set the address of the first element 
after the word DATA into SELIST (RA.+32B) . The last element 
o^^ the statement must be followed by an end of statement. 
The DIMENSION statement processor must have set the address 
of the dimension table in DIMl (RA+17B) . 



CA 138-1 REV 10-67 



CONTROL DATA CORPORATION • COMPUTER EQUIPMENT GROUP 
DIVISION 

DOCUMENT CLASS____1MS ^ PAGE NO 8.3 

PRODUCT NAME FORTRAN Extended Version 2.0 

PRODUCT MODEL NO 3PC08 MACHINE qFRiF<; 64/65/6600 

5.0 Structure 

5.1 CONVERG 

5.1.1 Sends the COMPASS images "ORG name" to COMPS file. The 

variable name is in VARBL. If the data is to be stored at 
a point different from zero of the array, then this index 
is computed. ORGPNT contains a binary num.ber if prior data 
has been stored in this array using the "REPI" pseudo-op. 
If the variable has been equivalenced and a bias introduced, 
this bias is contained in EQUBIAS, Nl, N2, and N3 contain 
the subscript -1 for the first, second and third subscripts, 
respectively. If the data is to be stored at a point dif- 
ferent from the beginning of the array, the index is con- 
verted to display code and suffixed to the array name, the 
COMPASS line image being "ORG name + index". 

5 . 2 STARRED 

5.2,1 Checks the data for a repeated list. The list enclosed in 

parenthesis or an item alone must be preceded by an asterisk 
The repeat count in display code is saved in the upper 30 
bits of REPEAT and the binary count is saved in the lower 
18 bits of REPEAT. The E-list address of the first data 
item to be repeated is saved in AGAIN. 

5 . 3 LEAD 

5,3,1 Checks the data for logical, Hollerith, complex, double and 
other, 

a) Logical is represented by false as DATA OB and true as 
-IB, 

b) Hollerith constants have all but the last word sent to 
the COMPS file with the DIS 1, pseudo-op. The last 
word is sent as VFD 60/nl where n is the number of 
characters remaining and 1 is L, R, or H. 

c) Real, integer, complex and double precision data are 
converted to internal binary via CONVERT, then to 
display code and suffixed with a B; thus being issued 
as octal constants, 

5.4 STRING 

5*4,1 Alters the repeat count of a data list if the data list 
exceeds the array length. 
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5 . 5 FLOW 

5,5,1 Checks for data exceeding array length and whether or not 
there is more data in the list. 

5.6 EXIT 

5.6.1 Sends COMPASS buffer to COMPS file. 



5.7 
5.7,1 

5.8 
5.8.1 



5.9 
5.9.1 



5.10 
5.10.1 



CLEAR 



Clears all temporary flags after a variable and its data list 
is completely processed. 



LAST 

Processes the subscripts of the array name. 

a) Constant subscripts in binary are saved in Nl, N2, N3 in 
their respective order, i.e., an array A (2, J, 3) would 
have 2, the first subscript, saved in Nl, and 3, the 
third subscript, saved in N3. 

b) The variable subscript in left-adjusted display code is 
saved in the same manner as the constant subscript except 
in cells Ll, L2, and L3. 

REFORM 

Reformats the DO control limits for the variable subscripts 
and saves the information in Ll, L2, L3. The initial value, 
the terminal value, and increment are saved in the 1st, 2nd 
and 3rd 18 bit bytes of the word respectively. The order in 
which the subscripts are to be incremented is saved in the 
upper 6 bits. Therefore, A(I, J, K) , 1=1, 10), K=2, 10, 2) 
J=4,5) would be saved as: 



Ll 
L2 
L3 



1 


1 


10 


1 


3 


1 


5 


4 


2 


2 


10 


2 


L 


i3 


IS 


1^ 



for I 
for J 
for K 



PAT 



Sets the initial value from the DO control limits from Ll, 

L2, and L3 into their corresponding Nl, N2 and N3 cells. 

If the DO control increment is greater than 1, then SWITCH 

is set to indicate each piece of data must be sent individually 

rather than possibly with a "REPI" pseudo-op. 
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5.11 KEEP 

5,11.1 Adds the running total of the implied DO loop for the array 

5.12 HELLO 

5.12.1 Sets SWITCH to indicate each piece of data must be sent 
individually if the subscripts are not to be incremented 
in consecutive order. 

5.13 RUNOVER 

5.13.1 Computes the difference between the array total and the 
starting point of the array which has only constant sub- 
scripts and uses this difference as the new array total. 



5.14,1 Matches a variable in a list to its corresponding data. 

5.15 BRUTE 

5.15,1 Increments the subscript pointers for an array with DO loop 
control. The data items must be sent individually because 
the position within the array must be recalculated each time. 
Either an increment of a loop control was not 1 or the 
variable subscripts are not to be incremented in the same 
order as they appeared after the array name, 

5.16 NEWSYM 

5.16.1 Entered when a new variable is mentioned in a DATA statement. 
Calculates the arithmetic type and saves this type along 
with setting the variable bit, defined bit and common bit 
in the symbol table. The variable name is stored in the 
buffer so that its associated data will follow the name in 
the buffer. The DATA, block is increased by 1, 

6.0 Formats 

6 . 1 PAREN 

Parenthesis count: incremented for left parenthesis 

decremented for right parenthesis 

6.2 TEMPI 

a) Used in LAST (see saction 5.8) contains the order number 
of the subscript in the lowest 18 bits. 
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b) Used in REFORM (see section 5.9), 



B 



S^ 36 

where : 



A 



18 



A = order of variable in implied DO loop. 

B = shift count for DO limits. 

for initial value. 
18 for terminal value. 
36 for increment. 

C = order of variable in the subscript. 

6.3 EQUIBIAS - equivalence bias if applicable. 

6 . 4 TOTAL 

Maximum number of words which can be stored in the array. 
Altered by DO loop control and subscripted reference other 
than the first element of the array. 

6 . 5 VARBL 

Name of the variable currently being processed in left 
adjusted display code. Lowest 18 bits are zero. 

6 . 6 SWITCH 

a) 1 for non-contiguous storage of data as with DO loop 
control. 

b) For non-subscripted variables in a list, the lowest 18 
bits contain the E-list address of the next element m 
the variable list. 

c) When a subscripted variable is mentioned in a varttble 
list, the lowest 18 bits contain the current E-list 
address in the data. After the subscript is processed 
the lowest 18 bits contain the E-list address of the next 
element in the variable list. 

6 . 7 ORGPNT 

Contains the last binary index into the array. If a "REPI" 
pseudo-op is used to preset data, then in order to have the 
location counter be positioned at the proper place withm the 
array for the next piece of data this index is used to space 
over the repeated data. 



CONTROL DATA CORPORATION . COMPUTER EQUIPMENT GROUP 
DIVISION 



DOCUMENT CLASS. 
PRODUCT NAME — 



PRODUCT MODEL NO. 



IMS 



FORTRAN Extended Version 2.0 



PAGE NO.. 



8.7 



3PC08 



MACHINE SERIES 64/65/6600 



6.8 



6,9 



6,10 



6,11 



6.12 



Dl 

a) simple variable = 

b) one dimensioned = 

c) two dimensioned = first dimension in lowest 18 bits 

d) three dimensioned = first dimension in lowest 18 bits and 
1st * 2nd dimensions in bits 30-48. 

Nl - 1st subscript ~1 

N2 - 2nd subscript -1 

N3 - 3rd subscript -1 

Sst. onl'" once for a. variable with, constant subscripts s 
Incremented after each data item for variable with 
variable subscripts. 

LI - a) in LAST (see section 5.8) 

L2 contains the variable subscript 

L3 name in left adjusted display code, 

b) in REFORM (see section 5.9) 







increment 
or 1 



terminal 
value 



initial 
value 



'36 



18 







57 54 
where : 

is the order in which the subscripted are to be incremented, 
AGAIN 

E-list address of the first data item of a repeated data 
list. 



REPEAT 



display code 



binary 



51 30 

repeat count 
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6.13 DBLCMPX 



for single variable; non-zero for double or complex 
variable, 

6,14 UNIQUE 

Unique name which is incremented after every use. Specifies 
a beginning address for data to be repeated via "REPI" 
pseudo-op. 

7 The low core cells, SYMl, DIMl, etc., are set via an EQU. All 
of the special characters, =, ), (, *, etc., are referenced 
symbolically and set via an EQU. 

8,0 Not applicable. 

9 Throughout the processor A4 contains the current E-list address 
and AO contains the address of the next available location in 
DATA'S COICPASS buffer. Whenever an external routine is refer- 
enced, these two addresses are saved in bits 0-18 and bits 
30-48 respectively in a cell called ELIST. 

The beginning address of DATA'S COMPASS buffer is obtained 
from DOLAST (RA+31B) . 

Examples of generated COMPASS images: 

1, DATA A/1, 2, 3, 4, 5/ or DATA (A =1, 2, 3, 4, 5) 
where A has been dimensioned 5 

ORG A 

DATA IB 

DATA 2B 

DATA 3B 

DATA 4B 

DATA 5B 

2. DATA B/27*0/ or DATi^ (B=27*0) 
where B has been dimensioned (3,3,3) 

ORG B 
S SET * 
DATA OB 
REPI S/S ,B/1B,G/32B 
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3. DATA A,B,C/4.DO,5.DO,2*3.DO/ 

where A,B,C are double and C dimensioned 2 

ORG A 

DATA 17224 OOOOOOOOOOOOOOOB 

DATA 16420000000000000000B 

ORG B 

DATA 17225000000000000000B 

DATA 16420000000000000000B 

ORG CC 

S SET * 

DATA 17216000000000000000B 

DATA 16410000000000000000B 

REPI S/S ,B/2B,C/1B 

4. DATA (NEW=4LNEW=) 

X»7]^0Y"0 MPW Hae t-irv-t- K/ae»i-» miav-t-f- -S av\o/^ Kn-r^-»>^ 

USE DATA. 
NEW VFD 60/4LNEW= 

5. DATA (((A(I,J,K) ,1=1,2) ,J=3,4) ,K=5,6)/8*0/ 
where A is dimensioned (2,4,6) 



ORG 


A+44B 


DATA 


OB 


ORG 


A+45B 


DATA 


OB 


ORG 


A+46B 


DATA 


OB 


ORG 


A+47B 


DATA 


OB 


ORG 


A+54B 


DATA 


OB 


ORG 


A+55B 


DATA 


OB 


ORG 


A+56B 


DATA 


OB 


ORG 


A-I-57B 


DATA 


OB 
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DATA A, B,C/4.D0, 5.DO,6*3D0/ 

where A,B,C are double and C has been dimensioned 6 



VAR$ 


SET A 
ORG VAR$ 
DATA 4.EE0 




VAR$ 


SET B 
ORG VAR$ 
DATA 5. EEC 




VAJl$ 


SET C 
ORG VAR$ 




.AC 


DATA 3. EEC 




XS 


SET .AC 




XB 


SET 2 




XC 


SET 6 






MTMAC XS , XB 


, XC 



4. DATA (NEW=4LNEW=) 

where NEW has never been mentioned before 



NEW 



USE DATA 
VFD 60/4LNEW= 



5. DATA (((A(I,J,K), 1=1,2), J=3,4) ,K=5 ,6) /8*0/ 
where A is dimensioned (2,4,6) 



VAR$ SET A 

ORG VAR$+0042B 

DATA 

ORG VAR$+0043B 

DATA 

ORG VAR$+0044B 

DATA 

ORG VAR$+0045B 

DATA 

ORG VAR$+0054B 

D^TA 

ORG VAR$-K)055B 

DATA 

ORG VAR$+0056B 

DATA 

ORG VAR$+0057B 

DA^TA 
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DOPROC Description 

1 .0 General Informat ion 

1.1 The DO processor (DOPROC) examines DO statements, DO- implied lists, 
statement numbers, statement number references, and Integer variable 
definitions. It determines the characteristics of DO's and index 
functions, diagnoses nesting, syntax, and the use of statement numbers, 
and generates R-llst macro words defining the beginning and end of each 
DO loop and DO-implied list. The DO statement is the only statement 
fully processed by DOPROC. 

2.0 Entry Points 

2.1 DOPROC 

2.1.1 DOPROC is referenced by PH2CTL when a DO statement is encountered. 
DOPROC examines the E-llst items of the DO for syntax. If the DO 
Is found to be legal, it generates a label for referencing from the 
bottom of the DO, sets up the DO table (DOT) with flag and address 
information concerning the control variable, limits, etc, and gener- 
ates an R-list macro for processing by the second pass DO processor 
(DOPRE) . 

2.1.2 The calling sequence for DOPROC Is: 

RJ DOPROC 

Upon entry to DOPROC, it is expected that low core location SELIST 
will hold the address of the E-LIST for the DO. Upon a successful 
exit from DOPROC, the R-llst file will contain seven words relating 
to the DO and If necessary, label information will be filed in 
SYMTAB. Low core location DOLAST will hold the address of the list 
entry in the DOLIST (DOL table). 

2.2 DODEF 

2.2.1 DODEF Is referenced by ARITH, ASSIGN and LISTEDIO (on Input) when- 
ever an integer variable appears as the object of a replacement 
statement, ASSIGN statement, or input statement. DODEF sets up an 
integer variable definition Item in the DOLIST (DOL table) and diagnoses 
Illegal redefinition of loop limits. 

2.2.2 The Calling Sequence for DODEF Is: 

RJ DODEF 

where Bl has been preset to the ordinal of the Integer variable in 
the symbol table. 

2.3 DOSYM 
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2.3.1 DOSYM is referenced by ARITH and LISTED 10 (output only) when an in- 
teger variable appears as an operand. DOSYM causes a search of the 
DOT table to see if the integer variable is the control variable for 
any loop and if so marks the control variable for materialization. 

2.3.2 The calling sequence for DOSYM is as follows: 

RJ DOSYM 

where Bl has been preset to the ordinal of the integer variable in 
the symbol table. 

2.4 DOCALL 

2.4.1 DOCALL is referenced by ARITH, CALL AND LISTEDIO when a subroutine 
or function reference, explicit or implicit, is encountered. DOCALL 
will set a flag indicating a transfer out of the loop. 

2.4.2 The calling sequence for DOCALL is: 

RJ DOCALL 

2.5 DOIT 

2.5.1 DOIT is referenced by LISTEDIO when it encounters a DO- imp lied list, 
DOIT initializes the loop as described under DOPROC. 

2.5.2 The calling sequence to DOIT is: 

Ed DOIT 
where Bl points to the E-list entry for the = sign. 
Return is to DOITX. 

2.6 DONE 

2.6.1 DONE is referenced by LISTEDIO after processing the list of a DO- 
impl ied loop. DONE closes the loop as described under DOLAB. 

2.6.2 The calling sequence for DONE is: 

Ed DONE 
Return is to DONEX. 

2.7 DOGOOF 

2.7.1 DOGOOF is referenced by LISTEDIO after encountering a fatal error 

while processing the list of a DO-implled loop. This allows DOGOOF 
to remove the current nest of DO- implied loops. 
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2.7.2 The calling sequence for DOGOOF is: 

EQ. DOGOOF 
Return is to DOGOOFX 

2.8 DOENT 

2.8.1 DOENT is referenced by ENTRY. DOENT files an error message indicating 
that external entry to a loop is being attempted. 

2.8.2 The calling sequence to DOENT is: 

RJ DOENT 

2.9 DOEND 

2.9.1 DOEND is referenced by END to see if all loops have been terminated, 
all referenced statement numbers and format numbers have been defined 
as such, and all loops with entries also have exits. 

2.9.2 The calling sequence to DOEND is: 

RJ DOEND 

2.10 DOLABCN 

2.10.1 DOLABCN is referenced by PH2CTL before each labeled statement is 
processed. The label is checked for prior definition and, if not 
found, is entered into the symbol table (SYMTAB) . The loop in which 
the label is defined is entered in the symbol table, and whether or 
not the label is an entry point to a loop. 

2.10.2 The calling sequence for DOLABCN is: 

RJ DOLABCN 

CLABEL of the common block PSICOM contains the current statement label 
left justified with blank fill. 

2.11 DOLAB 

2.11.1 DOLAB is referenced by PH2CTL after each labeled statement is proces- 
sed. If the label terminates one or more loops, DOLAB closes each 
loop; i.e. it notes exits from the loop, generates an R-1ist macro, 
and compresses the DOT and DOL tables. 

2.11.2 The calling sequence to DOU\B is: 

RJ DOLAB 



C A 138- ^ REV 10-6- 



CONTROL DATA CORPORATION • COMPUTER EQUIPMENT GROUP 
. DIVISION 



DOCUMENT CLASS. 
PRODUCT NAME — 



IMS 



PAGE NO. a.A. 



Fortran Extended 



PRODUCT MODEL NO. 



4P616 



MACHINE SERIES. 



64/65/6600 



2.12 
2.12. 



2.12.2 



3.0 



CLABEL of the COMMON block PSICOM contains the current statement 
label left justified with blank fill. 

DOUBR 

DOLABR is referenced by IF, CALL, and GO TO processors when refer- 
ence to a statement label is encountered. If the label is not yet 
defined it is entered in the DDL table, otherwise entries and exits 
are noted. 

The calling sequence to DOLABR is: 

RJ DOLABR 

SELIST points to the E-list item for the label, and upon return Bl 
contains ordinal of SYMTAB entry for that label. 

DOPROC will produce the following diagnostic messages: 



(1 

(2 

(3 
(it 

(5 
(6 
(7 
(8 
(9 

(10 

(11 
(12 
(13 

(1** 



Loops are nested more than 50 deep. 

The terminal label of a DO must be an integer constant between 
and 100,000. 

The terminal statement of this DO precedes it. 

The control variable of a DO or DO-implied loop must be a simple 
integer variable. , 

The syntax of DO parameters must be l=M, ,M ,M , or \=W^rW^. 

A constant DO parameter must be between and 13 IK. 

A DO parameter must be an integer constant or variable. 

This statement number has been used before. 

A previous statement in this nest references this statement 
number i 1 legal ly. 

This statement references a previous statement number in this 
nest illegally. 

A DO loop may not terminate on this type of statement. 

A DO loop which terminates here includes this unterminated DO loop, 

This statement redefines a current loop control variable or para- 
meter. 

ENTRY statements may not occur within the range of a DO state- 
ment. 
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(15 
(16 
(17 

(18 

(19 

(20 

(21 
(22 



This DO loop is unterminated at program end. 

This loop is entered from outside its range but has no exit. 

This referenced statement number does not appear on an execu- 
table statement. 

This referenced format number does not appear on a format state- 
ment . 

More storage required by DO statement processor for 

The variable upper limit and the control variable of this DO are 
the same producing a non-terminating loop. 

Compi ler error. 

The constant lower limit is greater than the constant upper 
1 imit of a DO. 



(23) The referenced label is greater than five characters. 

{2k) Zero statement labels are illegal. 

Errors 8,11,13,19,20 and 22 are informative. 

Error 21 is fatal to compilation. 

The remainder are fatal to execution. 

4.0 ENVIRONMENT 

DOPROC depends on information from the other processors in varying 
forms and degrees. It must have the E-list pointer for each DO 
statement and DO-lmplied loqp. It files entries in the symbol table 
(SYMTAB) and stores both temporary and permanent information regard- 
ing them. It outputs macros and generates label items into the 
R-list. 

The communications region of COMMON block PS I COM will contain several 
variables of interest to DOPROC. These are: 

(1) SELIST - contains the address of the current entry in the E-list 

(2) BLAST - contains the address of the last entry in the E-list. 

(3) DPI - contains the address of the first entry in the DOLIST 

Tool table). 



(4) DOLAST - contains the address of the last entry in the DOLIST 
(DOL table). 
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(5) SYMEND - contains the address of the last entry in the symbol 
table (SYMTAB). 

(6) SYHl - contains the address of the unused entry for ordinal zero 
in the symbol table (SYMTAB). 

(7) CLABEt - contains the current statement label, left justified 
with blank fill. 

(S) TYPE - contains the current statement tvoe in binarv riaht iij<;t|- 



I - - J- • - _i 



fied in the word. 

5.0 STRUCTURE 

5.1 DOTOP 

5.1.1 DOTOP processes each DO statement and DO- implied list and generates 
the R-list macro words for the top of the loop. 

5.2 SYNCHEK 

5.2.1 SYNCHEK performs a syntax check on each DO statement and DO- implied 

1 ist. 

5.3 INTVAR 

5.3.1 INTVAR makes an integer variable assurance check and returns a verdict 
of Integer variable or not. 

5.4 IDEF 

5.4.1 IDEF checks for illegal definition of loop variables and makes entries 
in DOLIST (DOL table). 

5.5 LIMIT 

5.5.1 LIMIT converts loop limits and determines if constant, variable, or 
i 1 legal . 

5.6 IREF 

5.6.1 IREF searches the DOT table to determine if the integer variable refer- 
enced in this statement is a control variable. If so it sets flag M. 

5.7 GENMAC 

5.7.1 GENMAC generates the R-list macro words. 

5.8 CHECK 
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5.8.1 CHECK checks the form of the limits and constructs symbolic-constant 
representation for each. 

5.9 LABEL and SYMBOL 

5.9.1 LABEL and SYMBOL search SYMTAB for the given display code entry and 
return I and H (R-list description) of entry and address. 

5.10 ERPRO 

5.10.1 ERPRO is used to produce a variety of error messages. 

5.11 SIO 

5.11.1 SIO is called to file R-list items. 

5.12 ETB 

5.12.1 ETB converts E-1 ist integer constant items into the corresponding 
binary constant . 

5.13 NAME 

5.13.1 Given the ordinal of a SYMTAB entry, NAME checks the E-field of the 
BYMTAB entry and if zero puts the ordinal into B1 for use by IREF. 
If E=l , it puts the base and bias from DIMLIST into Bl and B2 respecti- 
vely. 

6.0 FORMATS 

The DO processor receives information from SCANNER in E-LIST format 
and using SYMTAB data generates R-LIST macros for processing by pass 
two of the compiler. Interim data is stored into two tables: 

(1) DOTABLE (DOT) - information on current loops 

(2) DOLIST (DOL) - references to undefined labels and integer variable 
def init ions. 

Each table will be discussed in turn as to content, format, etc. 

DOT Table - The DOT table is a rigid table of up to 51 entries consisting 
of one entry per DO statement. However, each entry requires 3 memory 
words so that 153 60-bit memory words are consumed. The first entry 
in the table is not used. Flag and address quantities are defined as 
f o 1 1 ows : 

P - an 18-bit Index relating the DO statement to the machine address 
in the DOL table where information about the loop is stored. 
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CV - A three bit field containing flags b, c, and d where B, C, and D 
are lower limit, upper limit and increment of the DO respectively. If 
b, c, or d is set to I then the corresponding limit is variable. Other- 
wise the limit is constant. 

Examp 1 e : 

DO 10 I - 1 , N, 2 

B= 1 b = constant or 
C = N c = variable or 1 
D- 2 d = constant or 

and CV - 010 in binary 

Flags - seven bits of loop description broken into seven one-bit fields. 

(1) E - set to 1 if loop may be entered at a point other than the top. 

(2) X - set to 1 if loop may be exited at a point other than the ter- 
minating statement. 

(3) I - set to 1 if loop contains another loop. 

(k) M - set to 1 if loop control variable must be materialized (placed 
in memory) 

(5) V - set to 1 if control variable same as incremental limit. 
Example: DO 10 D = 1 , N, K 

(6) J - set to 1 if loop contains an implicit or explicit subroutine 
ca 1 1 . 

(7) ^ - set to 1 if all integer variables are assumed to be redefined 
within a loop. 

N - a 12-bit field containing the number of integer variable definitions, 

S - A 12-bit field holding the symbol table (SYMTAB) ordinal of the state- 
ment number referred to in the DO statement. 

IX - A 12-bit field holding the symbol table ordinal for the control vari- 
able entry. 

L - A 12-bit field holding the symbol table ordinal of the generated label 
at the top of the loop. 

B - An l8-bit field that is either a binary constant for the lower limit 
of the DO or the symbol table ordinal of a variable lower limit. 
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C - An l8-bit field that is either a binary constant for the upper 

limit of the DO or the symbol table ordinal of a variable upper 
1 imit . 

D _ An l8-bit field that is either a binary constant for the incremen- 
tal parameter of the DO or the symbol table ordinal of a variable 
incremental parameter. 

Information is aligned within the three words as follows: 

52 47 ^ 29_ 17 






A! 



N 



a 




XL 



Kr^r^^^ 



a 



bJL 



rv 



TTTTTTV: 



21 



Ik 



JLZ. 



N NWWWWNNf 



CU FLAGS 



DOL list - The DDL list is a variable length list residing in working 
storage and limited by the growth of SYMTAB and/or E-list entries. 
The list has two forms of entries: 

(1) References to undefined labels. 

(2) Integer variable definitions. 

All DOL list entries are one word (60 bits) in length and the fields 
are these: 

(1) T - a one bit flag indicating a reference to an undefined label 
(O) or an integer variable definition (1) 

(2) NAME - a 30 bit field with contents in one of three forms: 

a) T = 0, NAME is the ordinal of the symbol table entry for 
the undefined label, right justified in the 30 bit field. 

b) T = 1 , E of SYMTAB = 0, then NAME is the ordinal of the 
symbol table entry for the Integer variable definition 
right adjusted in the upper 12 bits of the 30 bit field 

(to align with the base of an equivalenced set of variables) 

c) T = 1, E = 1, then name contains the base and bias of the 
equivalenced variable as 12 bit and 18 bit fields respectively 
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The DDL list format Is: 



59 




21 



\ 



17 



NAME 



«ASE 



BIAS 



R-LIST Macros - DOPROC will generage R-LIST macros at the top and bottom 
of each loop, for processing by DOPRE in pass two of the compilation. 
Each macro will consist of 6 words (60 bits each). The first word is 
a standard macro reference with fields for OCj IN, etc. (See R-LIST 
language description). The second word has the ordinal of SYMTAB where 
the DO label definition is filed. This field is the rightmost 30 bits 
and the ordinal is right justified. Beginning with the left half of 
word two and continuing through word 6 is information relating to the 
three limiting parameters of the DO (B,C,D where the general form is 
DO Sn I=B,C,D) and the induction variable I. 

The parameters for words 2-6 are as follows: 

(1) L - a 30-bit label reference of the I and H variety described 
in R-LIST description. L Is the label attached to the DO. 

(2) SB - 30 bits of symbolic (I and H) information related to a 
variable B or base if variable is equivalenced to another. 

(3) SC - 30 bits of symbolic (I and H) information related to a 
variable C or base address If variable is equivalenced to 
another variable. Bias appears in CC. 

(k) SD - 30 bits of symbolic (I and H) information related to 
another variable. Bias appears in CD. 

(5) SI - 30 bits of symbolic (I and H) information related to a 
control variable (induction variable) or base address if vari- 
able is equivalenced to another variable. Bias would appear in 
CI. 

(6) CB - 18 bits of binary constant representing the constant B or 
the bias if B is an equivalenced variable. 

(7) CC - 18 bits of binary constant representing the constant C or 
the bias if C is an equivalenced variable. 

(8) CD - 18 bits of binary constant representing the constant D or 
the bias if D is an equivalenced variable. 

(9) CI - 18 bits of bias if the induction variable is equivalenced to 
another variable. If variable does not appear in an equivalence 
statement then CI is zero. 
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> ^P. 57 



47 46 



Zi 



iULS 



oc 



IN 



SO 



59 




29 









Sf 





L 



59 



29 



SD 



SC 



5 



Vr 



-': — T 



Tl 



29 






\ ^ -■ 



SI 



•It^ 



(r\ ■ \ \ 



53 



36 3 ^ 



\ \ \ \ ^ 
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STOP 

1.0 General Information 

1.1 STOP Is called by PH2CTL when SCANMER encounters a STOP statement. 
stop then sets up the proper R-list entries to cause a 60 bit Jump 

\ to STOP, at execution time, Wh^n the system routine STOP, is 
entered X7 will contain up to 5 octal digits that follow the word 
STOP on the FORTRAN statement. This processor is used only in phase 
2 of pass 1 . 

9 D llcano 

2.1 STOP 

2.1.1 R-list is generated to: 

1. Load an X register with the octal digits (up to five) given after 
the word STOP on the FORTRAN statement. The register Is loaded 
from the Hollerith constant region HOL, 

2. Transmit the characters from the Input register to the output 
register X7. Characters are left justified, blank fill. 

3. Jump to a point In the system to display the message and terminate 
the job. 

2.1.2 The calling sequence Is: 

RJ STOPP 

SELIST must contain the address of the E-list Items related to the 
STOPP. 

2.1.3 Flow of the processing goes as follows: 

1. The symbol STOFP. is entered Into the symbol table, if not there. 

2. The external bit Is set for STOPR In SYMTAB. 

3. The E-llst is checked for End of Statement. 

k. If first word of E-llst is not an end of statement, it Is typed 
as Holferith and tabled through CONVERT. 

5. R-llst macro references are formed from the IH of STOP, and the 
IH, CA of the Hollerith constant, 

6. The R-llst macro references are filed in SIO by WRWDS. 
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3.0 PAUSEP STOPP produces the following FE diagnostic: 

The field following STOP and PAUSE must be 5 or less octal digits 
k.Q Not appl icable 

5.0 Not appl icable 

8.0 A macro was written for inclusion in pass 2 processing which is 

exercised by the referencing R-list filed in SIO. This macro uses 
the IH of STOP, and the IH, CA fields for the Hollerith constant 
stored in HOL. to generate the following execution time code. 

SAi HOL.+CA 

BX7 Xi 

RJ STOP. 

STOPPcalls on WENDS, CONVERT, and SYHBOL. 
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PAUSE 

1.0 General Information 

1.1 PAUSE Is called by PH2CTL when SCANNER encounters a PAUSE statement. 
PAUSE then sets up the proper R-list entries to cause a 60 bit jump 

to PAUSE, at execution time. When the system routine PAUSE, is entered 
X7 will contain up to 5 octal digits that follow the word PAUSE on 
the FORTRAN statement. This processor is used only in phase 2 of 
pass 1 . 

2.0 Usage 

2.1 PAUSE 

2.1.1 R-list is generated to: 

1. Load an X register with the characters (up to five) given after 
the word PAUSE on the FORTRAN statement. The register is loaded 
from the Hollerith constant region HOL. 

2. Transmit the characters from the input register to the output 
register X?. characters are left justified, blank fill. 

3. Jump to a point in the system to display the message and suspend 
the job. 

2.1.2 The calling sequence Is: 

RJ PAUSE P 

SELIST must contain the address of the E-list items related to the 
PAUSE. 

2.1.3 Flow of the processing goes ^is follows: 

i. The symbol PAUSE, is entered into the symbol table, if not there. 

2. The external bit Is set for PAUSE, in SYMTAB. 

3. The E-llst is checked for End of Statement. 

^. If first word of E-list is not an end of statement it is typed 
as Hollerith and tabled through CONVERT. 

5. R-list macro references are formed from the IH of PAUSE, and the 
IH, CA of the Hoi lerith constant. 

6. The R-list macro references are tiled In SIO by WRWDS. 

3.0 PAUSEP produces the following FE diagnostic: 

The field following STOP and PAUSE must be 5 or less octal digits. 
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^.0 

5.0 
b.U 
7.0 



Not appi icable 

Not appl icable 

Not appl icable 

Not appl icab le 

A macro was written for inclusion in pass 2 processing which is 
exercised by the referencing R-list filed in SIC. This macro uses the 
IH of PAUSER and the IH, CA fileds for the hoi lerith constant stored 
in HDL. to generate the following execution time code. 



SAi 


HOL.+CA 


BX7 


Xi 


RJ 


PAUSE. 



PAUSEPcalls on WRWDS . CONVERT, and SYMBOL. 
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ARITH 
1. General information 
],\ ARITH processes replacement statements. It calls ASFDEF to process 
statement function definitions. ARITH translates any arithmetic, 
logical, relational, or masking expressions which may legally 
appear in any type of statement. It is found in phase-two of the 
first pass of the compiler. 

2. Entry points: 

2.1 BEFTB 

2.1.1 Function: to allow ENDPROC to refer to ARITH' s basic-external 

function name table (BEFTB). This Is not an entry into a coding 
area. 

2.2 GTARTH 

2.2.1 Function: To translate the expression in a computed GOTO statement. 

2.2.2 Calling sequence and returns: GTARTH is entered by an RJ instruction. 
It returns control to GOTOPRC thru Its entry point. 

2.2.3 Processing description: ARITH will translate the expression 
(addressed by SELIST) until an end-of-statement element is encountered 
or a syntax error occurs. After translating the expression, if It 

is other than type integer an RLIST macro Is output to convert it to 
integer. 

2.3 IXFN 

2.3.1 Function: To output a macro to RLIST to set an X register to the 

address of an I/O list item, preceded by an evaluation of the address 
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if it is an array reference with a non-standard subscript. 

2.3.2 Calling sequence and returns: IXFN is entered by an RJ instruction 
and exits through its entry point. 

2.3.3 Processing description: IXFN enters a special operator (XFLP) into 
the OPSTA.K with zero precedence and enters the beginning of ARITH's 
main translation loop at NEXTE. SELIST initially addresses the name 
of the I/O item. The first ELIST element following the complete 
I/O item should have a precedence of zero (a comma or end of state- 
ment, e.g.) and will cause XFLP to be popped from the OPSTAK which 
results in a jump to IXFN?. IXFN2 checks to make sure that the last 
entry made to ARLIST is a fetch macro. It changes the fetch macro 
code to a set-X macro code, sets SELIST to address the comma or end- 
of -statement in ELIST following the I/O item and sets X2 to the 
symbol table ordinal of the name of the I/O item. 

2.4 ACALL 

2.4.1 Function: To process the subroutine name and argument list of a CALL 
statement. 

2.4.2 Calling sequence and returns: ACALL is entered by an RJ instruction 
and exits through its entry point. 

2.4.3 Processing description: ACALL calls the SYMTAB entry routine 
(SYMBOL) for the subroutine name, and turns on the external bit in 
the symbol table. If there are no arguments, it exits through its 
entry point. Otherwise, it sets up ARXTH to process the argument Ust 
as it would a general external function's argument list. It enters 

a special operator (SUBRLP) into the OPSTAK rather than the operator 
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137, ERMSG3 

138, ERMSG4 

139, ERMSG5 

140, ERMSG6 

141, ERI^xSG? 

142 , EEMSG8 

143 , ERMSG9 



144, 


ERMSGIO 


145 , 




146, 


ER1'ISG12 


148, 


ERMSG14 


149, 


ERMSG15. 


150, 


ERMSG16 


151, 


ERMSG17 


152, 


ERldSGlS 


153, 


ERMSG19 


155, 


ER1'ISG21 


156, 


ERMSG22 


153, 


ER1^ISG24 


159, 


ERMSG25 


160, 


ER]MSG26 



NO MATCHING RIGHT PARENTHESIS. 
NO MATCHING LEFT PARENTHESIS. 

THE OPERATOR INDia4TED (-, -5-, *, /, or **) MOST BE 

FOLLOWED BY A GONSmNT, It^iME, OR LEFT PARENTHESIS. 

A MME IL^Y HOT BE FOLLOIJED BY A CONSTANT. 

MORE TH\N 63 ARGUMENTS IN ARGUMENT LIST. 

A CONSTANT MAY NOT BE FOLLOWED BY AN EQUAL SIGN, 
NAME, OR ANOTHER CONSTANT. 

EXPRESSION TRANSLATOR TABLE (OPSTAK) OVERFLOWED. 
SII4PLIFY IHE EXPRESSION. 

LOGICAL OPERAND USED WITH NON -LOGICAL OPERATORS. 

NO MATCHING RIGHT PARENmESIS IN SUBSCRIPT. 

LOCAL ENTRY POINT REFERRED TO AS EXTERNAL FUNCTION. 

INmiNSIC FUNCTION REFERENCE MAY NOT USE A FUNCTION 

NAME AS AN ARGUMENT. 

ARGUMENT NOT FOLLOWED BY COMMA OR RICHT PARENTHESIS. 
A FUNCTION REFERENCE REQUIRES AN ARGUMENT LIST. 
ILLEGAL GALL FORMAT. 

EXPRESSION TRANSLATOR TABLE (FRSTB) OVERFLOWED. 
SIMPLIFY THE EXPRESSION. 

THE OPER/\TOR INDICATED (.NOT. OR A RELATIONAL) MUST 
BE FOLLOliJED BY A CONSmNT, NAME, LEFT PAREN, -, or +. 

BASIC INTRINSIC FUNCTION WITH AN INCORRECT ARGUMENT 
COUNT. 

EXPRESSION TRANSLATOR TABLE (ARLIST) OVERFLOWED. 
SIMPLIFY THE EXPRESSION. 

ILLEGAL INPUT/OUTPUT ADDRESS. 

RIGHT PARENTHESIS FOLLOWED BY A NAME, CONSTANT, OR LEFT 
PARENTIS IS. 

MORE mm ONE RELATIONAL OPERATOR IN A RELATIONAL 



C A 13B- 1 REV 10-67 



CONTROL DATA CORPORATION • COMPUTER EQUIPMENT GROUP 
DIVISION 



DOCUMENT CLASS. 
PRODUCT NAME 



IMS. 



PAGE NO. 



1 2.4 



FORTRAN Extended 



PRODUCT MODEL NO. ^tEii^ 



MACHINE SERIES 6V65/66OO 



2.5 

2.5.1 



2.5.2 



3.1 

3.2 



entered for the beginning of a function argument list (ARGLP) . It 

then enters the beginning of ARITH's main translation loop at NEXTE. 

v/hen SUBRLP is popped from the OPSTAK, ACAL7 is entered. ACAL7 then 

calls APn-GPSCR to output loads of any saved function results to RLIST, 

Then the ARLIST block is output to RLIST and ACALL exits through its 

entry point. 

ARITH 

Function: To translate the expression addressed by SELIST, unless 

the expression is found to be a Statement Function definition, in 

vjhich case ASFDEF is entered to process the definition. 

Calling sequence and returns: ARITH is entered by an RJ instruction 

and exits through its entry point, or to ASFDEF in the case of a 

Statement Function definition. < 

Diagnostics produced: 

Fatal to compilation: none 

Fatal to execution: 



Message 


Ordinal 


Sc Symbo! 


Lie Name 


70, 


ERMSG51 


71, 


JAMER4 : 


75, 


JAMER5 : 


76, 


ERMSG52 


135, 


ERI^lSGl: 


136, 


ERMSG2 : 



A CONSTANT ARITHMETIC OPEPATION WILL GIV^ AN 
INDEFINITE OR OUT-OF -RANGE RESULT. 

EXPRESSION TRANSLATOR TABLE (JAMTBl) OVERFLCvTED. 
SIMPLIFY THE EXPRESSION. 

75 = Sia?S PER REPLACEMENT STATEMENT IS THE MXIMUM. 

TYPE ECS NOT AVAIL.\BLE IN THIS VERSION OF FTN]{. 

ILLEGAL USE OF THE EQUAL SIGN. 

VAR I:\BLE FOLLOIIED BY LEFT PAPvENTHESIS . 
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EXPRESSION. 

161, ERMSG27: A COMMA, LEFT PAREN, =, .DR., OR .AND. mST BE FOLLOWED BY A 

NAME, GONSmNT, LEFT PAREN, -, .NOT., OR +. 

162, ERMSG20: '^H ARRAY REFERENCE HAS TOO MNY SUBSCRIPTS. 

163, ERMSG29: NO ETCHING RIGHT PARENTHESIS IN ARGUMENT: LIST. 

164, ERMSOO: ILLEGAL FORM INVOLVING THE USE OF A COMM^\. 

165, ERMSG31: LOGICAL AND NON -LOGICAL OPERANDS MAY NOT BE MIXED. 

166, ERMSG32: DIVISION BY CONSTANT ZERO. 

167, ERMSG33: A COMPLEX BASE MAY ONLY BE RAISED. TO AN INTEGER POIJSR. 

163, ERMSG34: USE OF THIS SUBROUTINE MME IN AN EXPRESSION. 

169, ERMSG35: SUBROUTINE MME REFERPvED TO BY CALL IS USED ELSEI-JHERE AS A NON- 
SUBROUTIIffi NAME. 

195, ERMSG48: TOO MANY SUBSCRIPTS IN ARRAY REFERENCE. 

198, ERMSG37: LEFT SIDE OF REPLACEMENT STATEMENT IS ILLEGAL. 

203, ERMSG49: THE TYPE OF THIS IDENTIFIER IS NOT LEGAL FOR ANY EXPRESSION. 

204, ERMSG50: A CONST.\NT OPEF.\ND OF A REAL OPE?v.\TION IS OUT OF RANGE OR 
INDEFINITE. 

207, JAJMERl: THIS COMBINi\TlON OF OPEP^\ND TYPES IS NOT ALLOI-ZED IN THIS 
VERSION. 

211, JAJffiR2: DOUBLE OR COMPLEX OPERAND IN SUBSCRIPT EXPRESSION NOT ALLOWED. 

212, JAMER3: DOUBLE OR COMPLEX ARGUMENT NOT LEGAL FOR THIS DITRINSIC FUNCTION 
219, ERI4SG53: .NOT. MY NOT BE PRECEDED BY N:\ME, CONSTANT, OR RIGHT PARENS. 

3.3 INFORMz\TIVE 



147, ERMSG13: ARRAY MME OPER.\ND NOT SUBSCRIPTED. FIRST ELEMENT WILL BE USED. 

« 

154, ERMSG20: THE NUMBER OF ARGUl^IENTS IN THE ARGUMENT LIST OF A NON -BASIC 
EXTERNAL FUNCTION IS I1\G0NSISTENT. 

170, ERMSG36: THE NUMBER OF ARGUMENTS IN A SUBROUTINE ARGUMENT LIST IS 

ItJCONSISTENT. 
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184, ERMSG39: A HOLLERITH CONSTANT IS AN OPERAND OF AN ARITffilETIC OPERATOR. 
3.4 NON-USASI 

134, ERl^ISGO: MORE TH/^N ONE EQUAL SIGN. 

157, ERHSG23: ARRAY NA14E REFERENCED WITH FEIv^R SUBSCRIPTS TH\N THE DIMEN- 
SIONALITY OF THE \Rrl\Y. 

IZ-" rRliSG33: HOLLERITH CONST\NT APPEARS OTHER THVK E; AN ARGUMENT LIST OF 
A C/iL STATEMENT OR IN A DAT.\ ST.\TEtIENT. 

185, ERMSG40: NON-USASI SUBSCRIPT. 

186, EPxMSG41: MASKING EXPRESSIONS ARE NON-USASI. 

187, ER1-ISG42: THE TYPE COMBINATION OF THE OPERANDS OF AN EXPONENTIAL OPERATOR 

IS NOT USASI. 

183, ERMSG43: A RELATIONAL HAS A COMPLEX OPERi\ND. 

10- FRi-Q''./' • ^^^ TYrT^ CCi;3ir;'iTlCi: OF THE OPEIl^NDS OF L REL:,TIOKAL OR Ai; 
/-ITIinETIG OPERATCIl (CTEFR TH\N ^^) IS NOT USASI. 

4. Common data: 

4.1 Absolute locations in lower core: 

12B SYMl = The first-word address of the symbol table. This is used to 
set the defined bit in SYMTAB via a SYMTAB ordinal. 

17B, DIMl = The first-word address of the DIMENSION information table. This 
is used to get information for subscripted array references. 

22B EXFLG = until the first executable statement occurs. (Statement 

functions may not be defined after the first executable occurs). 

t 

24B, TYPE = Type code of the current statement. (Different statement typeg 
have different legal syntax at the end of expressions). 

26B, CONl = First-word address of CONLIST. ARITH uses this to fetch the values 
of constants which are involved in compile-time constant sub- 
expression evaluation. 

32B, SELIST- The address of the next ELIST element to be processed. 

37B CDCNT=The card (line) number of the first card of the current statement. 
Inserted in RJ6 RLIST instructions for trace-back information. 
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44B, DOFLAG=0 if the current statement is not in the range of a DO statement 
(Dummy variables not in the range of DOs are loaded indirectlv' 
rather than using address substitution). 

45B, CBNFLG=0 if the call-by-name option (T) has not been selected on the 
FIN control card. This determines whether Basic External 
Functions and externally evaluated exponential operation 
functions are called by value or by name. 



64 B, MlN= 



4.2 



The number to assign to the next RLIST result, e.g., Ri=R10+Rl5 
where i is determined by (NRLN) . SELIST and NRLN are also re- 
ferred to as EPOINT and NARN. 

COMMON Blocks: 

NAALN: next available APLIST number. Also used by CALL. 

STSORD: next available s tatement -temporary -store number . Reset 
to 1 by PH2CTL at the start of each statement. 

CLNFO: A block of information used by both CALL and ARITH: 



SUBFW^= 

SUBH= 
ARGCNT= 

KARGSF= 



the symbol table address of the name of the 
subroutine being called. 

the SYMTAB ordinal of the subroutine name. 

the number of arguments in the arg list. (These 
last three cells are set by ARITH for CALL's use). 

if there is an argument list. 



SUBNAME- holds the name of the subroutine in E-list form. 

(These two cells are set by CALL for ARITH's use). 

5. Subroutines used by ARITH: 
External Routines : 

5.1 Ii?RWDS: Used to make entries to the RLIST file. 

SYMTAB search an^d entry routine. 



5.2 SYMBOL: 



5.3 CONVERT: Constant conversion and CONLIST entry routine. 



5 .4 ASFREF : 



Called as each statement function reference is encountered 

to insert the statement function with actual arguments 

replacing dummy arguments into the ELIST block. 

5.5 DODEF: Called to inform DOPROC of the definition of a variable or 



i=i E V i 0- 6 7 
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5.6 DOCALL: Called to inform DOPROC of an external function refexence. 

5.7 DOSYM: Called to inform DOPROC of a reference to a variable. 



Local Routines: 



5.8 FUNC5RT: 



5.9 CARGPORT 



5.10 ARGPIRT: 



This routine is called when a function reference (other than 
a statement function) is encountered. The reference might 
occur in an argument list, so a block of cells (FRLW) used 
to hold information about argument lists is entered into the 
OPSTAK followed by the ARGLP operator (which will be popped 
by the right parens which terminates the list) and an 
ARGCMA operator (which will be popped by the comma after the 
first argument or the right parens if only one argument). 
The FRLW block is initialized. DOCALL is called if it is 
an external function. If the result of a previously re- 
ferenced external function has not been saved, an instruction 
is output to RLIST to save the result. 

The routine is called by the main line processor and by the 
exponential operator processor. 

This routine is called by the main line processor and the ex- 
ponential operator processor. It is called after each 
argument of a non Statement Function argument list has been 
scanned (it may be an expression). Intrinsic, basic external, 
and general external arguments are each processed differently. 
Intrinsic arguments cause the R name of the argument to be 
added to the R name table (RNTB) , basic external arguments 
cause register -store instructions to be output to ARLIST 
(which cause particular X-registers to be associated with 
the arguments), and general external arguments cause a store 
to APLIST or assemble to APLIST instruction to be sent to 
ARLIST. 

This routine is called by the main line processor and the ex- 
ponential operator processor after the argument list has 
been processed. If the function is general external, it 
outputs a call by name macro to ARLIST, It then enters 
ARGP8CR to output loads of functions sailed during the pro- 
cessing of the list, if any, to RLIST. Then, register define 
instructions are output to ARLIST, giving R-names to the 
result register (s), X6 (and X7) . Then all of the ARLIST 
for this function reference is output to RLIST. The next 
available location in the ARLIST buffer is adjusted. A 
psuedo-op giving the name of the function result is then 
output to ARLIST. Finally, the FRLW block is restored to 
the values it contained before this function reference. 
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5.12 UINGEN: 

5.13 mCOUT; 



5 . 14 MODCH : 



5 . 15 JAMl 



5 . 16 JAMS 
5 . 17 JAI18 
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If the function was intrinsic, the contents of RNTB would be 
used to set up the parameters of thr corresponding macro and 
the macro would be sent to ARLIST. Finally, the FRLW block 
would be restored. 

If the function was basic external a call by value macro 
would be sent to ARLIST and ARGP8CR would be entered, as 
for general externals. 

Processes binary operations. The input is the address of 
the operands, and the macro code of the operator. If both 
operands are real or integer constants and the operator is 
+, -, *, or / then the operation is made on the constants, 
the instructions which loaded the constants are no-oped 
and a macro to load the new constant is output; otherwise 
a macro is formed and output to ARLIST to operate on the 
operands and the operand entries in ARLIST are marked as 
having been used. Finally, the cells holding the addresses 
of the last two available operands (RLl & RL2) are reset. 

Processes binary operations, similar to INGEN. 

Routine to make; entries to ARLIST. The input is: type of 
result (e.g., Double Precision), the macro descriptor (macro 
number, number of Rs , IHs, CAs) , NARN (next available R 
name), and the macro parameters in a block called PARiVI-IS. 
I-L^GOUT forms the ARLIST information word and the macro in 
the next available locations in ARLIST. 

Used to generate a macro to convert from one data mode to 
another. The input is the address of the operand in ARLIST 
which is to be converted, and the data type to which it is 
to be converted. The type code of the operand and the new 
type code are combined to form a vector. The vector table 
is entered: the correct convert-macro code is selected 
and one of two possible branches are jumped to. A macro 
is then output to ARLIST. 

(See seventh section in 8.) This is an extension of INGEN 
to process DOUBLE and COMPLEX operations. It outputs macros 
addressing variables rather than R names as results, follow- 
ed by a macro to store the results of the operation in 
statement temporary storage. 

Is an extension to UINGEN, similar to JAMl. 

This is called by mCOUT just before it exits. If the pre- 
ceding operand is double length and the entry just made 
by M4C0UT is single length, it outputs a macro to convert 
the single length operand to DOUBLE. If thf^ preceding 
opcraiicl if; single . ^ngth and the entry just raadr is double 
length, it outputs coaversionr of all preceding unused single 
length operands . 
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6. Formats: 

6.1 ARLIST entries: (ARLIST is the block that ARITH forms RLIST subcxpres 
s ions in) . 

Word 1: 



NOP Type of GP # of wds . in # of wds . in 

result C TU U XMT unused J this entry preceding entry 
59 58 48 47 46 45 44 36 35 18 17 

B59 = 1 ±2 this ri.try ic rot to •■ r.-^nV to RLIET. IJ: .i59-l, the entire 
cov.tr,ii':p of \70Yd 1 hav" !!?'■:■■. complemented. 

B5o-43 indicate the type of operand as follows: 



2000B 


Logical 


2001B 


Integer 


2002B 


Real 


2003B 


Double 


2004B 


Complex 


2005B 


Octal 


2006B 


Hollerith 



B47 = 1 if the operand is a constant. 

B46 - 1 if this entry is temporarily unavailable as an operand. 

B45 = 1 if this entry has been used as an operand to a subsequent 
operation. 

B44 = 1 if a transmit inst^ruction should follox'? this entry if it is the 
second operand of an eqxial-sign operator. (e.g., see the RLIST 
macro definition of the intrinsic function REAL). 

B36 = 1 if this entry is a replacement "fetch". (Used by JAMS only). 

Word 2: Word 2 is unused at this time. It was Initially planned to 

use this word to further optimize evaluation of logical 
expressions but it was found that the optimizations could 
not be made because of a basic design peculiarity. 



Word 3: The first x^^ord of the RLIST macro (or instruction). If the 

entry may be used as an operand, B15-0 of this word holds 
the R-name of the oprrand. (If a double length operand, 
R-rl is the name of the second word of the operand) . 
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6.2 OPSTAK: This is the operator stack block. Generally, there is one 

word per operator. The format of tliat word is given below: 



operator code 



S.F. 



unused 



CGP 



A 



GP 



operator 
precedence 



59 



48 47 44 43 



23 22 21 20 19 18 17 







B59-48 = the operator code. The lowest operator code is 2003B. The 

codes used to repiesent source op-^rators are also used by 
ARITIi although APvITH generates some of its own operators. 

B47-44 are used with code 2036B to indicate the type of statement 
function referred to (0 = logical, 1 = integer, etc.). 

B22 = 1 if B18 = 1 and this operator has been compared with one in the 
stack with equal precedence. 

B21-19 are used with codes 2006B, 2026B, and 2036B. (These are 

opeiatorp which represent different types of left parens). 
B21-19 are used to remember whether a subscript, argument, or 
normal expression was being translated before the left paren 
occurred; this is indicated by B2i-19=4, 2, or 1 respectively. 
The infornHtion is needed to know whether a comma is a j 

subscript, argument, or comple:: constant comma. 

Bl;j = 1 if the operator has been compared with one of higher precedence. 

B17 - = the precedence of the operator. 

Operators Code in Octal Prece dence 



) 


2002 


f 


2003 


.G.S. 


2004 


= 


2005 


( 


2006 


OR. 


2007 


AND. 


2010 


NOT. 


2011 


.LE. 


2012 


.LT. 


2013 


.GE. 


2014 


.GT. 


2015 


.NE. 


2016 


.EQ. 


2017 


- 


2020 


+ 


2021 


ii 


2022 


1 


2023 


-k->'t 


2024 


(A 


2025 



(end -of -s ta tement) 













2 

3 

4 

5 

5 

5 

5 

5 

5 

6 

6 

7 

3 

10 

(left parens preceding 

function argum.ent list (see 2036) 
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Operators 



Code in Octal 



(S 



,S1 



,^2 



U- 
R- 
R/ 



(G.F. 



(X 



(SUBR 



2026 
2027 

2030 

2031 

2032 
2033 
2034 
2035 

2036 
2037 
2040 



MACHINE SERIEsM/65/MOQ- 
Precedence 



(left parenF preceding 
nonstandard subscript). 

1 (ccrama following first 
subscript expression in 
non-standard subscript). 

1 (comma following second 

subscript expression in 
non-standard subscript). 

1 (comma separating 

arguments) . 

6 (unary minus) . 

6 (reverse-operand minus). 

8 (reverse-operand divide) 

9 (special m.ultiply, f^.g., 
A/B/C/D A/ (B^C^D) 

(left parens preceding 

? ta temrnt -Func t ion 
argument list, 

(generated left parens 

entered at start of 
IXFN). 

(left parens preceding 

CALL argument list). 



6.3 FRSTB: 



Function results saved table. Information about functions 
which have been saved. One word per entry. 



B58 = 1 if the function ims Double or Complex. 

B33-16 = the number of the statement -trupovary-rt'jiJcig-. locztlov. :ln uhich 
thr fiaiction zce-\''J:. 'm?: paved. 



.rj-U 



the R nam- of the function result 



XPIMT: Exponent function name table. This table gives the name of 

each library function corresponding to the various combina- 
tions of operands possible for the ^"^'' operator. Each entry 
is one word. The format is: 

355-56 = type of result of the operation (1 = ^Integer , 2 = real, etc.) 
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B-55-49 (unused). 

E-43 = 1 if the combination if non-USASI. 
B47-0 = the namr of the function. 

There are 16 entries for the 15 poEGible comblnationr . Entries ^for 
illegal combinations are all zero. To "make an illegal combination 
legal, replace the entry with the necessary information as described 
above. 

6.5 IKTFTB: Intrinsic function table. Three words per entry, one entry 

per intrinsic function- The format of the first and second 
words is the same as the pass-1 format of SYlWili entries 
T7ith the exception that BO of the second word = 1 if the 
function contains an Rt-M RLIST instruction and therefore 
may need a transmit before a store. The third word holds 
the macro descriptor word (see mCOUT) , or, if ¥AX or MIN 
type functions, special information about the type of MIX 
or MIl^ function. 

6.6 BEFTB: Basic external function tabl'_. Two words per entry, ^ one 

entry per function. The format is the same as the first 
pass format of SYMX.4B entries. 

7. Modification facilities: EQUs are used for diagnostic ordinals, 
mCROX ordinals, lower memory cell locations, block sizes, codes, 
etc. Diagnostic macros are used. All explicit operations and in- 
trinric function references lesult In RLICT macros rather than 
separate RLIST instructions. 



o. 



Method: 



3.1 There are four kinds of expressions in FORTRAN Extended: 

1. Arithmetic 

2. R.elational 

3. Logical 

4. I'fesking 

The same translator is used to translate all kinds of expressions. 
Translation takes place in a single left to right scan of the expression, 

Trans latlov, Ir froi:! t'lc : -l:.rt forin of th- source statement to RLIST 
-;^^,,„.^^,- ^ Xhf^ :lLIST j-anguege r-prdfios the machine instructions and 
registers to evaluate the expression, but the registers are assigned 
as if there were an infinite number available. The second pass 
assigns actual registers to the instructions. 
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Arith is called by 

1. Phase-2 control for processing of replacement statements. 

2. Computed GO TO processor 

3. IF 

4 . CALL 

These are the only kinds of statements which may contain expressions. 
If the replacement statement is actually a statement function 
definition, ARIIH will call ASFDEF to save the statement function for 
later reference as a macro. Statement functions are expanded in-line 
at each point of reference. 

8.2.1 Computed GO TO: ARITH translates the expression, converts to type 
integer if necessary, outputs the RLIST block, and returns to the GOTO 
processor with the number + 1 of the result-R in a coimnon location. 

8.2.2 IF: ARITH translates the expression, outputs the RLIST to the RLIST 
blok, and returns to the caller with the name and type of the result 
in a common location. 

8.2.3 CALL: CALL calls ACALL which is local to arith. ACALL sets up ARITH 
to process the CALL statement with argument list in much the same 
way as an external function reference is processed. ARITH outputs 
all the RLIST needed for the arguments and returns to CALL. 

8.3 Generalized flow of the translation process. 

8.3.1 The basic translation algoritm used is similar to that used to produce 
reverse Polish notation. 

For example: 

A*(BH-C)-D 

is translated to reverse Polish as follows: 



Step 



2 

3 
4 
5 
6 
7 
8 
9 
10 



E-list 
Item 



( 

B 
+ 
C 
) 

D 
E.O.S. 



£e ra t o r S ta c k C onten t s 

(EOS) 
* 

*( 

*( 
*(+ 

*(+ 



Re verse Polish String 

A 

A 

A 

AB ' 

ABC 

ABC+ 

ABC+ 

ABC+* 

ABC-!-*D 

ABC+*D-. 



(E.O.S. = end -of -statement operator) 
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This algorithm has been modified so that RLIST, rather than Polish notation, 
is produced. The difference is that instead of outputting the name of a 
variable to a string, an instruction to load the variable is output, and 
instead of outputting an operator, an operation with operands naraea is 
output. For example taking the expression used in the last example, the 
results are: 

RLIST Corresponding Polish 

R1=A A 

R2=B B 

R3^%» G 

R4=R2+R3 + 

R5=R1*R4 * 

R6=D D 
R7+R5 -R6 

Almost all of the RLIST generated by ARI1H is in the form of RLIST macro ref 
erences. RLIST macros are described in detail. 

8,4.1.5 Since no provision is made for saving intermediate result registersjall 

external function calls must be made before the remainder of the expression 
is evaluated. ARITH does this by forming the RLI^T for the expression in 
a block local to ARITE called ARLIST and outputting each function reference 
including argument expression evaluation to the RLIST file as each argiment 
list becomes completed. 

In general, function results , except for the last function call, are saved 
in a block called ST for statement temporary. After the entire expression 
has been scanned, ARITH outputs loads of the saved function results to the 
RLIST file and then the remainder of the contents of ARLIST are output to 
RLIST. 



,4.1.6 The exp onential operator, ^*: 

For exponential operations which are not done in-line, the ** operator 
is really an external function reference. Since it has only two arguments, 
it can be called by value. So, the exponential operator is made to look 
like a basic external function c^ill and seme of the function processing 
routines are used. A problem arises in an expression like 

A+(B*(C+D)**E/F 

because the call to the exponential function must be output first pre- 
ceded by all of the argument eva:luating RLIST to the RLIST file. 

The solution for this caselis to save a marker with every left parens 
entered in the OPSTAK to point to the start of the ARLIST for what might 
be the first operand of an exponential operator. 
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For exponentials with integer or real base expressions, and 
an integer constant power which is greater than one and less 
than 7 , ARITH selects an RLIST macro code and outputs a macro 
to do the exponentiation in-line. 

8,4,2 Subscripts 

8.4.2.1 Standard: ARITH's subscript processor produces two kinds of 
array references for standard subscripts: a subscript psuedo-macro 
which is processed by DOPRE in the second pass, and a simple variable 
load macro with a constant addend. 

8.4.2.2 Non-Standard: If the subscript processor finds that the subscript 
is not in standard form, it resets the ELIST pointer to address 
the start of the subscript. It then adds a non-standard-subscript 
operator to the operator stack, and returns control to the general 
expression scanner (at NEXTE) . 

There are three kinds of commas that ARITH must deal x<^ith: 
an argument comma, a subscript comma, and a complex -constant 
comma. To do this, ARITH keeps a cell called EMDDE V7hich 
indicates whether it is in argument mode, normal expression mode 
or subscript mode. Initially, EMDDE is set to normal expression 
mode. As each left parens is met, the current mode is saved in 
the left parens entry in the OPSTAK and EMDDE is set to normal, 
or argument, or subscript if the left parens is normal, or follows 
a function name, or follows a subscript name, respectively. As 
each left paren is popped from the stack, EMODE is reset to what 
it was before that left paren was encountered in ELIST. 

Argument and subscript commas are psuedo operators and when 
popped from the OPSTAK they initiate the action necessary to complete 
the processing of the argument or subscript. As each subscript comma 
is popped, it causes some of the index function RLIST to be generated. 
When the subscript operator: itself is popped from the stack, the final 
index function RLIST is produced followed by a macro to load the array 
element name. 

Since a non-standard subscript expression can be any arithmetic 
expression, it's possible to have subscripted subscripts to any 
depth. This means that the non-standard subscript processing must 
be able to op^^rate recursively. 
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So, when the subscript operator is added to the OPSTAK, it is preceded 
by information about the subscript currently being processed. This is 
the same way that the function processor worked. 

8.4.3 Relational, Logical, and Masking expressions 

Processing the four kinds of expressions with the same translator 
presents no serious problems to the basic algorithm. The relative 
hierarchy of the explicit operators are: 



/ -k 

-,+ 

relat ionals 

.NOT. 

.AND. 

.OR. 

No distinction is made between the arithmetic operators (/,*,-, and +) 
and the relat ionals. The logical operators become masking operators 
if their operands are non-logical. Since logical operands are only 
legal for the logical operators, and since .AND. and .OR. must have 
both operands logical or both non-logical, it is impossible to have an 
expression that contains both masking and logical subexpressions. 

Otherwise, expression types are mixed in any way. For example, 

A+B.LE.C.AND.Ll (LI is logical) 

is a logical expression with relational and arithmetic subexpressions. 
It is translated as follows: 

RLIST OPSTAK 

R1=A + 

R2=B .LE. 

R3=R1+R2 .AND. 

R4==C 

R5=R3.LE.R4 

R6=L1 

Ry^'RS. AND .R6 

8.4.4 Distinctions made between operand types in arithmetic and relational 
expressions. 

When an operator is popped out of the OPSTAK, it enters a jump or vector 
table where an RLIST macro code is assigned to it and it is sent to 
the appropriate processor. For the relational and arithmetic operators 
other than **, if the operands of the operator are type integer, the 
macro code is increased by one; if they are double precision, the code 
is increased by two; if complex, by three; and if real the code is used 
3S is. 
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Before the macro code xncreiilentation ir ma dr , t:he operand types are 
compared. If they are not the same, an RLIST macro is output to convert 
the lower type operand to the same type as the higher operand. 

8.5 Optimizations 

8.5.1 Compile-time data -type change: 

When an operator is popped from the stack, if its operands are of 
different types, and if the operand of lower type is constant, it will 
be converted to the higher type and the RLIST instruction which loaded 
it or set it will be replaced by one that loads the converted constant. 

8.5.2 Compile-time constant subexpression evaluation: 

Before a macro is formed for an operator, if it is an arithmetic operates: 
and if its operands are integer or real constants, the RLIST for the 
operands are no-oped, the operation is performed on the operands, and 
a load or set of the computed value is output to ARLIST. If this load 
is subsequently used as an operand with another constant operand it 
will be no-oped just as the loads it replaced were no-oped. 

8.5.3 Division by real or complex constants: 

If a real or complex constant is preceded by a divide operator, RLIST 
is output to load its inverted value and the divide is changed to a 
multiply operator. 

8.5.4 Expression transformations: 

Some expressions or subexpressions can be transformed to other mathemati- 
cally equivalent forms whichevaluate faster on the 6600 than they would 
if translated by the basic algorithm. 

8.5.4.1 The RLIST produced for 

A*B*C*D 
would compute the product as if it had been written 

((A*B)*C)*D 

and thus not take advantage of the 6600's two multiply units. If it 
had been written as 

(A*B)* (C*D) 

the two products in parentheses would be computed simultaneously. In 
order to achieve this effect, Arith keeps a flip-flop for popping 
multiply operators by operators of equal hierarchy. The flip-flop is 
flipped for every multiply operator encountered in ELIST, so that for 
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A*B*C*D+E. 
the first multiply is popped by the second, as usual, but the second 
is not popped by the third. The last two will be popped by the plus 
thus resulting in 



8.5.4.2 Normally: 



results in 



(A*B)* (C*D)+E 



A*B*C/D 



((A*B)*C)/D 



which gives no parallel execution. But if divide is given a higher 
priority or hierarchy than multiply » then 

A*B*C/D 

is evaluated as 

(A*B)*(C/D) 

and the divide and multiply units are working simultaneously, 

Note: It might be well to note at this time that the rules for 
carrying out these transformations are general rules and are always 
in effect in the translation algorithm. The translator never looks 
at a source item in E-list more than once, except for non-standard 
subscripts, (see 8.4.2.2) 

8.5.4.3 -A+B or, to illustrate the preceding note, 

-(A-B)+C*D 

becomes 

C*D-(A-B) 

which reduces the number of operations from four to three, by the 
following rule: 

If a unary minus is about to be popped from the stack by a plus, 
remove the unary minus from the stack and replace the plus with 
a reverse -operand minus operator. The macros associated with the 
reverse -operand minus operator are the same as those for a normal 
minus operator except that the first parameter is subtracted from 
the second instead of the second from the first. 

8.5.4.4 A/B/C becomes A/B*C, replacing a 29 cycle divide with a 10 cycle 

multiply (6600), by the following rule: 
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If the current ELIST item is a divide and the last operand in 
ARLIST is not type integer and the last operator in the stack 
is a divide or a multiply -D operator, then change the current 
divide to a multiply-D operator which has higher priority than 
the divide and specifys a multiplication. Introducing the mul- 
tiply-D opera torallows more than one sequential divide to be- 
come a multiply: 

A/B/C/D/E becomes 
A/(B*C*D*E), which happens 
to become A/((B*C)*(D*E)) because 
the flip-flop also applys to multiply-D 
operators. 

8.5.4.5 The following rules allow a great variety of transformations which allow 
for more parallel evaluation of expressions. Some examples of the traiE- 



A*B/C*D 

A-f-B/C+D 

A-+-B*C-D' 

A*(B+C)/D 

A-(B*C-1-D)-E 



(B/C)*(A*D) 
(B/C) + (A+D) 
(B*C)+(A-D) 
(A/D)*(B+C) 
(A-E)-(B*C+D) 



The rules are as follows: 



When a right paren is encountered in E-list, set the GP (greater 
priority) flag bit in the operator following the right paren. Or, if 
the current operator pops an operator with a higher priority out of 
the stack set the GP bit in the current operator word. 

If the GP bit of the current operator is set and it is about to pop an 
operator (other than unary minus) of equal priority, or it is a divide 
and the last operator in the stack is a multiply, then don't pop the 
operator from the stack, eet the CGP (confirmed GP) bit in the current 
operator and the GPTU bit in the information x^ford of the last ARLIST 
entry. If the operator left in the OPSTAK is a minus, change it to a 
reverse minus. Add the current operator to the stack. 

The GPTU bit makes an ARLIST entry temporarily unavailable for use 
as an operand. After an operator with its CGP bit set is popped, the 
last ARLIST entry with itc GPTU bit set has the bit turned off. 

The follov7ing example will illustrate the use of these rules. 

A>^B/C>''D (B/C)'KA*D) 

ARLIST OPSTAK 



R1=A 
R2=B 
R3=C 



/ 
CGP, GP,'> 
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GPTU R4=R2/R3 
R5=D 
R6=R1*R5 
R7=R4''R6 

3 . 6 Ar 1th table overf lox^ diagnosti cs 

0.6.1 There is a fatal-to-execution diagnostic which says : 

'^EXPRESSION TRANSLATOR TABLE (table-name) OVERFLOWED. SIMPLIFY THE 
EXPRESSION.'^ 

There are three different tables which may become overflowed. 

8.6.1.1 OPSTAK table: 

The size of the stack fluctLiates as the expression is -scanned. 

For example, it increases as left parentheses and operators of higher 

priority occur, and decreases as operators of loxv^er priority occur. 

Each operator entered in the stack requires one word of space, except 
for left parens which require two: one to mark the start of a possible 
exponential base and the other the operator itself. 

The start of each function reference requires nine words which includes 
the recursive function processor Information. If the reference occurs 
lii an intrinsic fuuctici:. argument list, then the opstak is also used 
to save the R-names of the arguments which have been processed so far, 
which could be up to 62 wo:pds if the function is a MAX or MIN type 
function. 

The start of non-standard subscripts requires four words. 

The OPSTAK block size may be modified by changing the EQU named 
MXOSE in the common file called OPTIONS, and reassembling ARITH. 

8.6.1.2 FRSTB: 

This is the function result-saved table. A one word entry is made for 
each function that has its results saved. For example, in 

A=F1(B)+F2(C)+F3(F4(D)+F5(E))+F6(F) 

Fl and F2 are saved, and then F4 is sav^jd but is reloaded to add to F5 
so the size of the table goes down by one, and finally F3 is saved 
before calling F6. 

The FRS^EB block size can be modified by changing the EQU named 
MXFRSTB in the Option file and reassembling Arith. 

8.6.1.3 ARLIST: 

This is ARITfi*s RLIST block. The size increases as the expression is 
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scanned, but it decreases after each external function reference is 
output to the common RLIST file. A variable load entry takes 6 words; 
an operation takes four words if single length operands, and 8 if 
double length; a standard subscript psuedo-macro takes fourteen words. 

The size of ARLIST is controlled by the EQU named ARLSZ in the Options 
file. 

8.7 The Register Jam Problem 

The second pass was designed under the assumption that there would always 
be a sufficient number of X-registers to be used in the evaluation of 
expressions, with the following type of exception: 

A very long expression can be constructed in such a way that 
the result registers of enough subexpressions must be saved 
so that a point is reached where enough registers to continue 
do not exist. 

The assumption was correct for integer and real expressions, but it 

was found that it was quite easy to run out of registers when evaluating 

Double or Coup lex type expressions. 

The problem has been partially solved by modifying the expression trans- 
lator to produce a different kind of output for Double and Complex 
expressions; partially solved because it is still possible to run out 
of registers for Real or Integer expressions. 

These modifications to ARXTH make up over 20% of the total number of 
source lines in ARXTH , so it's important that they be described. 

8.7,1 The solution in general: 

When the second pass finds that it does not have enough registers to 
complete a sequence of statements, it reduces the number of statements 
in the sequence and begins again. 

The solution is to break up ^ double or complex expression into many 
statements, one statement per operation. For example, 

D1=D2*D3-1-D4 

is made to look to the second pass like 

STl = D2*D3 
Dl = ST1+D4 

where STl is statement -temporary -one and is treated as a double variable. 
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8.7.2 The solution in particular: 

8.7.2.1 Double length operations: 

When ARITH is ready to output a macro for an operation, if the operands 
are double -word -length loads, it no-ops the load instructions and 
outputs a macro x^hich will load the operand and do the operation. 
It then outputs a macro to store the results of the operation in 
Statement -Temporary storage folloxaed by an end -of -statement psuedo-op. 
This macro is called a DSTR macro. The DCTR macro is in th^ sane 
format as a double load macro and will be used as an operand to sub- 
sequent operators, 

8.7.2.2 MiKed single and double: 

An expression with mixed single length and double length operands, for 
example real and ccMplex, presents a new problem. The expression 

A-FB*(Cl-!-C2) , (CI and 02 complex) 

would now result in 

Rt=A 

R2=B 

R3, 4=C1 (no -oped) 

R5, 6=02 (no -oped) 

R7, 10=C1-K]2 

ST1=R7, 10 

EOS (end -of -statement op) 

Rll, 12=CMPX(R2) 

Etc. 

but at the point of the last line, a reference to R2 is made which is 
defined in the previous statement which may end up in another sequence 
and therefore be undefined in this sequence. Rl x^?on't be referred to 
until after the multiply operation which will occur two statements 
away, and so the chances that it will be undefined are even greater. 

This problem has been solved by converting all unused single length 
operands to type Double Precision in an expression that contains a 
double or complex operand. The method of doing this is as follows: 
As each load or operation is output to ARLIST, the type is compared 
with the type of the last operand in ARLIST. If one is type integer or 
real and the other is double or complex, then a flag is set to indicate 
that mixed single and double has occurred, and the contents of the 
ARLIST blok are scanned, inserting macros to convert operands which have 
not already been used in operations to double precision. Thereafter, 
the type of each entry to ARLIST is checked, and if not double or 
complex, a macro is output to convert it. 
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8.7.2.2.1 



8.7.2.3 



Mixed super -and sub -expressions 

A modification to this method of dealing with the mixed single and 
double problem is necessary because of real or integer argument 
expressions occurring in a Double or Complex super -express ion. 
Also, index functions in a double expression should not be 
forced to be computed In double precision. This makes it 
necessary to treat argument and subscript sub -express ion as an 
autonomous expression with regard to whether mixed single and 
double has occurred, and with regard to how far back in the ARLIST 
to go when the first double operand occurs in a mixed single arid 
double expression. And since subscripted subscripts and function 
references in argument expressions, etc. toist, it is necessary 
to keep track of where in ARLIST each subexpression starts, 
and for each subexpression whether mixed single and double has 
occurred. This introduces another table which can overflow. 
The name of the table is JAMTBl- The size is controlled by the 
EQU named JAMTBIMX in the options file. An entry of two words 
is made at the start of each argument and non-standard subscript. 
The table is reduced by two at the end of each argument and non- 
standard subscript. 

Consider the statement 



!.7.3 



9. 



A(I*J)=D1+D2*D1 (Dl and D2 double) 

The subscript I*J is non-standard. The RLIST produced for the 
statement would normally consist of the calculation of the index 
function followed by the evaluation of the expression followed 
by a store of the result into \(I^'<^J). But since ends -of -statement 
operators nox^ follow the double plus and double multiply operations, 
the subscript calculation may end up in another sequence. 

So, ARITH now moves the RLIST to compute a non-standard index 
function from the front of the ARLIST blok to the end before out- 
putting the store macro. 

Because of this and multiple replacement statements, it is necessary 
to remember the starting point in ARLIST of each replacement 
variable. The limit on the number of replacements per statement 
is 75. 

Subscripts and double length operands: 

To make the implementation of this solution to the register de- 
pletion problem more feasible, Double or Complex operands in 
subscripts has been inade illegal, and all Double or Complex array 
subscripts are ccxisidered non-standard. 

Restrictions and other remarks: 
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9 1 Basic syntax checking is done by looking at the ELIST element following 

the current E-list element. The following table indicates the syntax 
rules : 

E-list element may be fol lo_wed_by 

CON (constant) ),,, E.O.S,, OPS (2.) \ 

ID (name) ),,, E.O.S. , OPS , = , ( 

) (1.) ),,, E.O.S. , OPS, = 

*-^ =, (, .OR., .AND. CON, ID, (, -,+ , .NOT. 

.NOT., relational ops CON, ID, (, -, + 

(1) If ) is the closing parens of an IF expression it may be follm-Jed 
by an ID (if L8gical IF) or constant (label). If ) is in I/O 
list (IXFN call) it may be followed by ( or ID. 

(2) OPS = .OR., .AND., relationals, -, +, ^, /, ** 
9.2 The format of ARITH in COMPASS: 

Label field starts in column 2, operator in column 11, and symbols or 
intc-er constants in column 21. Instructions (other than 50-57) v7hich 
have'^morc than one reoult register (e.g., Unpack) are written so that 
the B register name starts one character after the end of the operation 
field. Operand registers start in column 18. This format results in 
all result registers, operand registers, and symbolic references to be 
found in column 12-16, IQ-'IO, and 21-72 respectively. Comments start 
in column 31. 

Every conditional branch instruction has a comment stating what 
condition must be met in order to branch. 

9 •' (it NEXTE Bl is set to the address of the next Elist item to process. 

A large part of ARITH arsumes that Bl holds this address. Therefore, 
Bl should be used very carefully. 

Except for Bl, in general it may be assumed that any register may be 
destroyed when calling a subroutine (including Bl for external routines). 
Any exceptions to this are noted in the introductory comments of the ex- 
ceptional routines. 

9 I. Caution to modifier. AKITH is not laid with booby traps but may appear 

to be so because of the complexity of the task. Transformations, etc, 
cause unexpected results. Beware of functions, non-standard subscripts, 
and exponential operators. 
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CALL: IMS Documentation for the CALL Statement Processor 

1. General Information: 

1.1 CALL hks one function: to translate CALL statements to RLIST. GALL 
is part of PHASE -2 of the compiler. 

2. Entry Point: 
2.1 CALL 

2.1.1 Function: Translate the E-list form of a CALL statement to RLIST. 

2.1.2 Calling sequence and returns: CALL is entered by an RJ instruction. 
If the statement does not contain a fatal error, CALL exits through 
its entry point. Otherx^^ise, it returns control to PH2CTL at P2ER. 
(See Section 4) 

3. Diagnostics Produced: 

3.1 Fatal to compile diagnostics: none 

3.2 Fatal to execution: 
Ordinal 

in 
Octal 

253: ''Illegal CALL statement format*'. 
254: "Illegal RETURNS parameter' . 

3.3 Informative: none 

3.4 Non-USASI: 

Ordinal 

in 

Octal 



266: "RETURNS parameters in a CALL statement". 

4. Common data : 

The following are single cell locations in a common block called CLNFO; 

SUBFW(\: Holds the address of the first word of the symbol table 
entry for the name of the subroutine being called. 
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SUBH: Holds the SYMTA.B ordinal of the subroutine name. 

ARGCNT: Holds the number of arguments in the argument list. 

(These last three cells are set by ARITH for CALL's use). 

NARGSF: Is set to zero if there is an argument list. 

SUBNAME: Holds the name of the subroutine in E-list form. 

The latter two cells are set by CALL for ARITH 's use. 

The common block NAALN holds a single cell variable called NAALN which 
holds the next available APLIST (actual parameter list) ordinal. It is 
updated by Arith. 

On entry to CALL, location 32B (SELIST) holds the address of the ELIST 
block for the CALL statement. The first word in the block is the name 
of the subroutine being called. Location 37B (CDCNT) holds the number 
of the first source card in the CALL statement being processed. 
Location 64B (NRLN) holds the next available RLIST result number. 

5. Subroutines used by CALL; 
External routines: 

5.1 DOCALL: Called to inform DOPROC that a CALL statement has appeared. 

5.2 ACALL: Subroutine local to ARITH called to set up ARITH to process the 
argument list. 

5.3 WRWDS: Called to output RETURNS parameter information and the return- 
jump instruction to RLIST. 

5.4 DOLABR: Called to inform DOPROC of a reference to a statement label the 
(RETURNS actual arguments) . 

6. Formats: There are no tables. in CALL. The format of the RLIST produced 
by CALL is given in the RLIST document. Data cells set by CALL are 
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quantities which are right adjusted. The RLIST formed by CALL 
consists of a 56 (APL) operation (if there is CALL argument list and 
a RETURNS argument list) with 1-7, H = 0, and RI = the APLIST ordinal 
for the subroutine, followed by type 56 (APL) operation (s) giving 
the returns parameters (if there are any), followed by a 50 (LD) 
operation with CA= 0, SO = 15B to specify a load into XI, RI = the 
contents of NRLN, 1=5, H = the ordinal of the APLIST, followed by 
a 101 (RJ6) operation with CA = contents of CDCNT and HI = the 
ordinal of the subroutine name. 

7. Modification facilities: 

EQUs and diagnostic macros are used which would facilitate some 
modifications . 

8. Method: CALL calls ARITH through ACALL to process the subroutine name 
and the argument list, if any. After return from ACALL it processes the 
RETURNS list, if any, and outputs the final RLIST instructions to call 
the subroutine. 
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1. General Information: 

1.1 IF processes all IF statements. IF is local to ARITH which is in PHASB-2 

of the compiler. 

2. Entry Points: 

2.1 IFE 

2.1.1 This entry is taken to process two and three branch IF statements. 

2.1.2 Calling sequence and returns: IFE is entered by an RJ instruction and 
returns through the entry point, unless a fatal diagnotic is encountered 
in which case it returns to PH2CTL at P2ER. 

2.1.3 General Flow: ARITH is called to translate the IF expression. 
Instruction (s) are then output to RLIST to branch to the appropriate 
labels. 

2.2 IFL 

2.2.1 This entry is taken to process Logical IF statements. 

2.2.2 (Same as 2.1.2) 

2.2.3 General Flow: ARITH is called to translate the IF expression. If the 
statement following the expression is GOTO k where k is a statement 
label, IFL outputs a branch-if -.T31UE. instruction to RLIST: otherwise, 
it outputs a branch-if ".FALSE, to a generated label, calls the 
appropriate statement processor to process the statement, and then 
outputs the generated label. 

3. Diagnostics Produced 

3.1 Fatal-to-compile diagnostics: none 
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3.2 Fatal-to-execution: 

Ordinal 

in 

Octal 



255 "Illegal labels in IF statement" 

256: -'Logical expression in 3 branch IF" 

257: "The statement in a Logical IF may be any executable 
statement other than a DO or another Logical IF" 

260: 'The expression in a Logical IF statement is not type 
logical" 

3.3 Informative: 

301: '"This statement branches to itself" 

302: "The statement following an IF is not labeled" 

3.4 Non-USASI: 

277: "Two branch IF statements are non-USASI" 

300: "The expression in an IF statement is type Complex" 

4. Common data: 

Location 21B (LTyPE) gives the type of statement following the 
Logical IF expression. 

Location 23B (CLABEL) holds the label (if any) of the IF statement. 

Location 34B (LELIST) holds the address of the start of the statement 
following the Logical IF expression. 

Location 603 (NIABEL) holds the label (if any) of the next statement. 

Location 32B (SELIST) holds the address of the start of the IF 
expression in the ELIST block. 

IFRPF is a flag initijtlized by IF but used by ARITH to differentiate 
between the legal and illegal occurrence of a right paren followed by 
a constant (e.g., IF (A+B) 1, 2, 3 and IF (A+B) 1, 2, 3). 

5. Subroutines used by IF: 
External routines: 
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5.1 DOIABR: Galled to inform DOPROC of a reference to a statement label. 

5.2 All executable statement processors other than DO and LOGICAL IF to 
process the statement following a Logical IF expression. 

Local routines used by both ARITH and IF (see ARITH documentation 
for descriptions): 

5.3 MilCOUT: (to make entry to ARLIST) . 

Local routinrs: 

5.5 ARITH: Called to translate the IF expression to RLIST. (Only local 
so far as being found in the same subprogram). 

5.6 IFBRT: Syntax checks the E-element addressed by SELIST which should 
be a statement label, and returns with the label in BCD form in X6 and 
IFTS2. 



J . / 



0UT3R: Calls DOIABR, then MCOUT to output a branch instruction to 
ARLIST. 



6. Formats: There are no tables in IF. U" outputs RLIST macros 321B 
through 3303. See MCROX for descriptions. 

7. Ifodification facilities: EQUs are used for diagnostic ordinals, 
MACROX ordinals, and lower memory cell locations. Diagnostic macros 
are used. Only RLIST macros are output to RLIST. 

8. Method; 

IFE (two and three branch IFs): ARITH is called to translate the IF 
expression to RLIST. If it is a three branch IF, the expression type 
is checked to see that it is not type Logical. A macro to branch-on- 
zero to the 2nd label is output to ARLIST. If the first label is not 
the same as the label on the next statement, a macro to branch -on - 
negative to the first label is output to ARLIST. If the third label 
is not the same as the label on the next statement, a macro to branch 
unconditionally to the third label is output to i\RLIST. Then, IFOUT 
is entered: An end-of -sequence instruction is output to ARLIST to 
insure that none of the following statement is evaluated before all 
tests for the IF have been completed, i.e., consider 

IF(A) 1, 2, 1 

1 3 =C/A 
Finally, ARLIST is output to RLIST. 
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If it is a two branch IF, the first label is compared to the label on 
the next statement. If it is not the same a macro to branch on negative 
(.TRUE.) or non-zero to the first label is output to ARLIST depending on 
whether the expression is logical or non-logical respectively. If the 
second label is not the same as the label on the next statement, an un- 
conditional branch is output to ARLIST. Then IFOUT is entered. 

IFL (Logical IFs): 

ARITH is called to translate the IF eiipression. If the statement following 
the IF expression is 

GO TO k where k is a statement label, 

then a branch on negative (.TRUE.) to k is output to RLIST and IFL exits 
through its entry point. If the statement is not GO TO k, a branch-on- 
plus (.FALSE,) to a generated label is output to RLIST followed by an end- 
of -sequence macro. Then a vector table is entered (biased by the ntateraent 
type code found in LTYPE) which results in calling the statement processor 
if it is an executable statement other than a DO or Logical IF. (Otherwise, 
ERPRO is called). On return from the called statement processor IFL out- 
puts an RLIST psuedo-op defining the genrrated label. IFL then exits 
through its entry point. 

The only time a three branch IF will jump to the folloxi7ing statenient :.^. 
when the second label is the same as the label on the next statement. 
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ENDPROC 

1.0 General 

X^X ENDPROC is called by PH2CTL when SCANNER detects the END card of a 
subprogram. ENDPROC performs the following functions: 

a. Call DOEND to close out DO lists. 

b. Generates the proper exit code placing it into R-list, then 
issuing an end -of -R-list operation code. 

c. Issue BSS storage for all usage defined variables. 

d. Issue EXT pseudo ops for all external s5rmbols. 

e. Issue informative diagnostics for undefined variables. 

f . Condense symbol table from two words/entry to one word/entry. 

g. Move CONLIST, terminated by a "USE CODE.", to the COMPS buffer, 
h. Append special character to external library names for co- 
existence problems with previous versions. 

ENDPROC calls DOEND, SYMBOL, WRWDS, STR, and ERPRO. 

2.0 Usages 

2.1 Entry Point Name: END 

2.1.1 ENDPROC processes the END card of a subprogram. 

2.1.2 ENDPROC is entered via a return jump and upon completion of its tasks, 
exits through its entry point. 

2.1.3 ENDPROC processes the first entry in the symbol table (Program/ 
Subprogram Name) separately from the rest of the symbol table. After 
determining the type of progiram being processed, the proper exit code 
is issued to R-list; the routine then enters the main loop to process 
the rest of the tasks listed in Section 1.1. A buffer is built in 
working storage of the EXT's and the BSS's for usage defined variables. 
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2.1.3 (continued) 

When the end of the symbol table is reached, CONLIST is converted 
to display code and also written into the working storage buffer in 
the form of DATA pseudo ops,, along with a "USE CODE." to terminate 
the list. The buffer is then moved to the COMPS file and the routine 
exits through its entry point. 

2.2 Entry Point Name: SCHBET 

2.2.1 SCHBET appends a special character to the FORTRAN Extended external 
library functions. 

2.2.2 SCHBET is entered via a direct jump and expects X6 to contain the nan^ 
to be searched for left justified in the upper 42 bits, with the lower 
18 bits all zero. SCHBET expects the return address in B7. 

2.2.3 The routine compares the name in X6 with the names in a table of 
externals. If the name is found, a special character . or $ is appended 
to the name in X6 . If the name is not found, X6 is unaltered. In 
either case the routine exits by jumping to the address specified in B7. 

3.0 Diagnostics 

3.1 No fatal to compilation errors are detected. 

3.2 No fatal to execution errors are detected. 

3.3 One informative diagnostic may be issued: 

"-name- UNDEFINED VARIABLE, I.E. THIS VARIABLE IS NEVER 
INITIALIZED. 

3.4 No non-ASA errors are detected. 
4.0 Environment 

When ENDPROC is called, it is expected that S3nnbols necessary to the 
sub-program have been entered in the S3nnbol table and all fields in 
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4.0 (continued) 

the entry have been set accordingly. 

Of particular interest are the entries made by DECPRO when processing 

a subroutine or function subprogram name. 

a. For a subroutine with parameters, the name is entered and typed 

as a subroutine; ENTRY, is entered and defined as the entry point; 
and TEMPAO. is entered and defined in the S3niibol table. 

b. For a subroutine without parameters, the name, and ENTRY, are 
entered, but TEMPAO, unless there is a RETURNS list is not entered 
in the S3mibol table. 

c. For a function subprogram, the name is entered with the proper 
type, and the ENT bit is set; ENTRY, is entered and defined as 

the entry point; TEMPAO. is entered and defined; VALUE, is entered, 
defined, and typed the same as the function subprogram name. 

d. For main program END. is entered in the S3nnbol table and marked 
as external. 

d. For all programs ST., QT, and DO. are entered in the s3nnbol table 
with the U bit set and RB=3. 

5.0 Structure 

5.1 Major Subroutine Name: END 

5.1.1 Upon entry to END a return jump is immediately made to DOEND to close 
out all DO lists. Then the first entry of the S3nnbol table (Program/ 
subprogram name) is loaded into XI and X2 and the program type is 
determined. If a function subprogram is being processed and the last 
statement was not a transfer or a RETURN, XI and X2 are saved and a 
call is made to SYMBOL to obtain the sjrmbol table ordinal for VALUE, 
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5.1.1 (continued) 

Then a reference is placed into R-list to expand the RMACRO LDVAL. 
for a single precision function, or LDVALl. for a double precision 
function. XI and X2 are restored, and the necessary registers are 
set to go to the main loop to process the rest of the S5mibol table. 
If a BLOCKDATA subprogram is being processed, the END line is written 
to the COMPS file and ENDPROC exits through its entry point. 
If a subroutine is being processed and the last statement was not a 
transfer or a RETURN, XI and X2 are saved anu a jump is made »,o S^i.4.ajLxj 
to find TEMPAO. If TEMPAO was not previously in the symbol table, 
a reference is set into R-list to expand the RMACRO SUBRWO which sets 
up a jump to ENTRY, in R-list. If TEMPAO, was in the symbol table, a 
reference is set into R-list to expand the RMACRO SUBRW which generates 
code to restore AG and then a jump to ENTRY. After either case XI and 
X2 are restored, registers are set, and the main loop is entered. 
For a subroutine or function, if the last statement in the subprogram 
was a transfer or a RETURN, it is not necessary to generate any of the 
RMACROS but merely to issue the end-of -R-list operation code, set 
necessary registers, and go to the main loop. 

If a main program is being processed, a return jump to END. is placed 

into R-list, the R-list is ended, registers initiated, and entry is 

made to the main loop. 
5.2 Major subroutine Name: PROSYM 
5.2.1 This is the start of the main loop for processing and squeezing the 

symbol table. 

Each S3mibol table entry is examined separately. 
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5,2.1 (continued) 

Examination of the ssmibol table entries proceeds as follows: First, 
if the type field of the entry is greater than 5 flow falls directly 
through to the squeeze loop, SQUEEZE. If the entry is a label 
SQUEEZE places bits 59-48 of word B into bit positions 11-00 of 
word A. If the entry is a symbol bits 24-13 of word B are placed 
into bit positions 11-00 of word A. This combined word is then 
stored into the next location of the one word symbol table, the next 
entry is loaded. 

If the type is through 5 other conditions must be checked. If the 
symbol is external, not a formal parameter, and is a basic external 
function a decimal point (.) is appended to the name in the symbol 
table, an EXT pseudo op is put into the COMPS buffer and SQUEEZE is 
entered. If the symbol is external, not a formal parameter, and is 
not a function or not a basic external function then SCHBET is entered 
to determine if a special character ($) need be appended. 

Whether the character is appended or not, the EXT pseudo is put into 
the COMPS buffer and SQUEEZE is entered. 

If a symbol has not been defined in the symbol table, the symbol is 
placed into X4 in E-list form, necessary registers are saved, and a 
jump is made to ERPRO to enter the variable and diagnostic in the error 
table. Upon return, registers are restored and the loop is re-entered. 
As the diagnostic is only ii>formative, a BSS 1 (or 2) is sent to the 
buffer for the undefined variable. 
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5.2,1 (continued) 

If a variable has been defined by usage only, a BSS 1 (or 2 for two 
word variableis) is stored into the buffer for that variable to be 
output to COMPS later. 

5.3 Subroutine NAME: CONS 

5.3.1 The one word symbol table is saved in lower addressed memory with 
enough room between it and the two word S3mibol table to hold the 
generated label definition (one word for each generated label). 
The head and end addresses of the one word S5nnbol table are held in 
SYMl and SYMEND respectively while the head and end of the two word 
symbol table are held in SYMXA and SYMENDA. 

CONLIST is then converted to display code octal constants and put into 
the buffer area. 

A "USE CODE." is placed in the buffer and the entire buffer moved to 
COMPS via WRWDS. 

If at any time the COMPS buffer being formed will exceed the available 
working storage (at this time the area from CONLAST to SYMEND), a 
return jump is made to RITCOKP to save registers, dump the buffer to 
the COMPS file, and restore or reinitialize the registers. 

6*0 Not applicable. 

7.0 ENDPROC expects the proper addresses in SYMl (RA+12B) . SYMENT (RA+13B) , 
CONl, (RA+26B), and CONLAST (RA+27B). PH2CTL must set LSFLG (RA+44B) 
to zero if the last statement in the subprogram was not an unconditional 
transfer or a RETURN, or to non-zero if the above condition does exist. 
DECPRO must set PROGRAM (RA+56B) equal to the program name packed into 
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7.0 (continued) 

the cell with a bias of 2000B if a main program. A subprogram will 
have the number of arguments in the lower 48 bits and a bias of 2001B 
for a subroutine, or a bias of 2002B for a function. 

MOl, M02, MUJ, ana Mu^i- are set equctx uo unc ncuuu^e^ wo. -...^ .x^-.^^vv ^ — 
a single precision function subprogram, a double precision function 
subprogram, a sub -routine with parameters, or a subroutine without 
parameters respectively. 
8.0 The method used in the task is discussed at length in Section 5. 
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RTNPROC 

1.0 General Information 

1.1 RTtJPROC is called by PH2CTL when SCANNER encounters a RETURN 
statement. RTNPROC performs the following functions: 

a) Checks for illegal use of the RETURN (or RETURN a) statement. 

b) Determines type of return (standard or non-standard), and 

c) Generates proper RETURN coding to R-list. 

RTNPROC calls ERPRO, SYMBOL, STR, I/RVJDS, and ASAER. 

2.0 Usage 

2.1 Entry Point Name: RETURN 

2.1.1 RTNPROC processes all RETURN statements. 

2.1.2 RTNPROC is entered via a return jump and upon completion of its 
task (or upon detecting an error), exits through its entry point. 

2.1.3 RTNPROC checks first to see if the RETURN statement has been used 
legitimately. Then the type of subprogram is determined, and a 
reference to an RMACRO is placed into R-list to generate the 
necessary R-list code. See Section 5.0 for detailed flow. 

3.0 Diagnostics 

2^1 Fatal to compilation: none. 

3.2 RTt^PROC may issue one of three fatal to execution diagnostics: 

a) RETURN S i:\TEKENT APPE/iRS IN A MAE^ PROGRi\M. (#67) 

b) NON-STANDARD RETURN SX.4TE^IEKT ^Y NOT APPEAR IN A FUNCTION SUB 
PROGPu'kM (#63) . 
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c) PARAMETER ON NON-STANDARD RETURN STA.TEMENT IS NOT A RETURNS FORMAL 
PAR^\METER. (#69) 

3.3 None 

3.4 Non-ASA Diagnostic 

a) ME NON-STANDARD SETimK STATEMENT IS NOT AtffiRICAK STANDARD FORTRAN. 
(#72) 
4.0 Environment 

When RTNPROC is entered the following entries are expected to Iiave 
been made in the symbol table by DECPRO: 

a) For a subroutine with parameters - the name is entered and typed 
as a subroutine; EN1RY. is entered and defined as the entry point; 
and TEMPAO. is entered and defined. 

b) For a subroutine without parameters - the name, and ENTRY, are 
entered, but TEMPAO, is not entered in the symbol table. 

c) For a function subprogram - the name is entered with th?? proper 
type, and the ENT bit is set; ENTRY, is entered and defined as the 
entry point; TEMPAO. is entered and defined; VALUE, is entered, 
defined, and typed the same as the function subprogram name. 

See Section 7.0 for the list of common cells and the information 
expected in each. 

5.0 Structure 

5.1 Major Subroutine Name: RETURN 

5,1.1 Upon entry a check is immediately made to see if a main program is 
being compiled. If it is a main program, ERPRO is called to issue 
diagnostic #67 » then the routine exits » If we are processing a 
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a standard return in a subroutine which has formal parameters, R-list 
code is issued to reference the RMA.CRO SUBRW to restore AG and jump to 
the entry point. If the subroutine has no parameters, RMA.CRO SUBRWO is 
referenced to set up just a jump to the entry point. 

For a standard return in a function subprogram entries are placed in 
R-list to reference RMA.CRO LDVAL. to load a single precision function 
value to X6, or to reference RMACRO LDVALl. to load a double function 
value to X6 & X7- Both of these RMCRO's then generate code to restore 
AO, and jump to the entry point. 

If we are processing a non-standard return statement in a subroutine, and 
the RETURNS parameter is in the symbol table with type equal to 7, the 
entries are placed in R-list to reference RMACRO NSRTRN to load the 
RETURNS entry in APLIST into Bl , restore AO, and then jump to contents 
of Bl. If the RETURNS parameter is not in the symbol table or if the 
type is not equal to 7, ERPRO is called to issue diagnostic tt 69, then 
the routine exits. 

If the non-standard return statement occurred in a function subprogram, 
ERPRO is called to issue diagnostic #68, then RTNPROC exits. 

6.0 Not applicable. 

» 
7.0 RTNPROC expects the proper addresses in D0Li\ST (RA-I-31B), and SELICT 

(R;', '■32:3) . DECPRO must pack the program name with a bias of 2000B into 
PROGRAM (RA-1-56B) if processing a main program. If processing a sub- 
program DECPRO places the number of arguments in bits 0-47 of PROGRAM 
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with a bias of 2000B for a subroutine, or a bias of 2002Bfor a function, 

MORDl, M0RD2, M0RD3 , M0Rr)4, and M0RD5 are set equal to the ordinal of 
the RMA.CRO for a single precision function subprogram, a double pre- 
cision function subprogram, a subroutine with parameters, a subroutine 
without parameters or a non-standard return statement respectively. 

8.0 Method 

The method used for the non-standard RETURN is as folloxi7s: 

Processing of the subroutine header card x^ill cause the RETURNS formal 
parameter to be placed in the symbol table with type = 7, and numbered 
consecutively (in bits 39-34 of word 2 of the entry) beginning with zero^ 

For the nominal case where no formal parameters are declared with the 
subroutine name, an APLIST of just the RETURNS formal parameters is 
formed, terminated by a zero entry. If there are formal parameters 
they are entered in the APLIST followed by a zero entry; then the 
RETUEINS formal parameters are entered (one word per entry) and 
followed by a zero word. 

The number of formal parameters (n) declared in the SUBROUTINE 
header card is added to the ordinal obtained from word 2 of the 
symbol table entry for the P^ETURNS parameter. If n = 0, then 
this sum is the ordinal (i) passed to the NSRTRN PJ^vCRO. If n=0, 
then i==i-M must be passed to the RMACRO to compensate for the extra 
zero word in APLIST. 
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The RmCRO NSRTRN generates 



S^.= AG -K 

SBl = X 
J 

SA, = TEMPAO. 
k 

SAO = X 
k 



JP Bl 
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NAHELIST 



l-D General 

1.1 NAHELIST processes the NAflELIST statementr and is part of 
Phase 2r Pass 1. 

E.D NAHELST has one entry point. 

E.D.I NAMELST processes the NAHELIST statement. 

E.D.S NAUELST is entered from PHECTL via a return jump and exits 
through its entry point or to FATALER if there is insuf- 
ficient memory to process the statement. A flagr MACROIMr 
is checked to determine whether the NAME macro definition 
has been written onto the COHPS file. If notr it is 
written before any NAUELIST processing. The macro is as 
foi lows- 



ME 


MACRO 


NrTrBASE,BIAS,FPrDlrDErD3 




LOCAL 


Zl,ZErZ3,Z 




VFD 


lfi/D,ME/OLN 




VFD 


b/l,b/D 




IFC 


NEr^BASE^^rl 




VFD 


Ifi/BASE+BIAS 




IFC 


ECJr^BASE^^rl 




VFD 


Ifi/N 




IFC 


NEr^FP^^rl 




SUB 


N 




VFD 


3D/T 




IFC 


E(3r^Dl^^,l 


Z 


SET 


D ' 




IFC 


NEr^Dl^^rl 


Z 


SET 


1 




IFC 


NE,^D3$^,M 


Zl 


SET 


Dl 


ZE 


SET 


DE 


Z3 


SET 


D3 




IFE(3 


D,l 




IFC 


NE,^DE^$r4 


Zl 


SET 





ZE 


SET 


Dl 


Z3 


SET 


DE 




IFE(3 


D,l 




IFC 


NEr^Dl^^rM 
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Zl 


SET 


D 


ZE 


SET 





Z3 


SET 


Dl 




IFE(3 


Drl 


Zl 


SET 


D 


ZE 


SET 


D 


Z3 


SET 
ENDIF 


1 




VFD 


b/Z 




ENDfl 





b/Zrlfi/Zlrlfi/ZErlfi/Z3 



E.0.3 The NAUELIST statement is 
the same time from the E-1 
BSS storage to be defined 
ablesr and macro calls to 
the NAPIE macro. The BSS s 
NAMELSTr and is written to 
in NAMELST is full, and wh 
completely processed. The 
served in temporary storag 
information is written ont 
group has been completely 
code has been written onto 
group set of information e 



syntax checked and processed at 
i st form. This process causes 
for previously undefined vari- 
be formedr which will reference 
torage code is preserved in 

COUPS when the reserved area 
en a NAHELIST group has been 

macro reference code is pre- 
er beginning at DOLAST+1. This 
o the COMPS file after a NAUELIST 
processed, and any BSS storage 

the COriPS file. A NAUELIST 
nds with a zero word. 



When NAUELST exits, the following will have been 
accomp I ished: 

1. Each NAUELIST group name wi I I have been entered into 
the symbol table with mode set to NAUELIST- 

E- Each group variable that was not in the symbol table 
will have been entered and will have its mode set 
according to natural typing. 

3. Each group variable that was not dimensioned, equiva- 
lenced, or in COnilON, will cause BSS storage to be 
issued, the number of words of storage allocated is 
added to DATAAr and the common and defined bits are 
set in the symbol table. 

H. For each NAFIELIST group the following information will 
have been generated by the NAUE macro for the COIIPS 
file. 



Word D: The NAHELIST name in display code, zero-filled, 
left-justified in the lower HE bits- 
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IjJord IK-E- the name of the K^^ associated variabler 

in display coder zero-filledr left-justified 
in the lower HE bits- 

Uord 3K-1: 1 in bits 5^-5^ {indicates FUA|<. is the 
address of a var iable'^s first memory 
locat ion> . 

Zero in bits S3-4fi 

FUA|< in bits H7-3D 

T|^ in bits 2=^-0 -Call right-justified within 

the allocated bits> 

FlilAi^ is the address of the variable-'s first 
memory location- 

T. is the type of the variable^ 1= logical 
^ E= integer 

M=real 
S=double 
b=comp lex 

Word 3K' Zero in S'^l-SH if variable not dimensioned; 

1 if dimensioned. 

V\E^ in S3-3t3 

ni|< in 3S-ia 

LNG in 17-D 



MEi, is^ the first dimension of a three- 
dimensional array- D otherwise- 
Mi. is: the product of the first two ^ 

dimensions of a three-dimensional 
array '-r the first dimension of a 
two-dimensional array'■^ D otherwise. 

LNG is= the number of elements -Cnot neces- 
sarily the number of computer 
words> of an array- 1 for a 
variable- 
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Uord 3N + 1: D -[where N is the number of variables 
associated with the NAMELIST namel- 
Formatting NAMELIST information in this 
manner is to facilitate the implementation 
of the RUN E.D and 2-3 NAHELIST I/O 
rout ines- 

3.D Diagnostics 

3-1 Fatal to Compilation 

None 

3.E Fatal to Execution 

3.5.1 THERE IS INSUFFICIENT ROOH TO PROCESS THIS STATEMENT- 
Issued if there does not appear to be enough room to 
process the statement ^nd convert it to COMPASS line 
images. 

3.E.E THERE IS AN ENTRY IN THIS NAMELIST STATEMENT OTHER THAN A 
SLASHr A COMMAr OR A VARIABLE. 

3.E.3 ENTRY FOLLOWING A SLASH IS EITHER NOT A VARIABLE OR A 
VARIABLE THAT HAS BEEN PREVIOUSLY USED. 

3.E.M NAMELIST GROUP NAME IS NOT SURROUNDED BY SLASHES. 

3.E.S IN ONE OF THE NAMELIST GROUPS IN THIS STATEMENT, THERE IS 
AN IMPROPER ENTRY IN PLACE OF A VARIABLE. 

3.S.b ^Variable name^ - NAME OF A VARIABLE THAT HAS A MODE OTHER 
THAN LOGICAL, INTEGER, REAL, DOUBLE, OR COMPLEX. 

3.E.7 ^Variable name^ - THIS VARIABLE HAS VARIABLE DIMENSIONS- 
THIS IS NOT ALLOWED IN CONJUNCTION UITH NAMELIST. 

3.3 Informative 
None 

3.4 Non-USASI 

All NAMELIST statements receive the NON-USASI diagnostic. 
^THIS STATEMENT IS NON-USASI.^ 
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•4 . D Environment 

H.l The following cells are. referenced and expected to be set 

accordingly- 

H.l-l SELIST - address of the next entry in E-LIST. 

II T D n ACT _ -^AAt^c^trse- (-^•P +-ko cilr^A r\-f T -I T"=^T. 

-r"JJ"l_ i_i_r»oi ci<^v^i<=.o<^ v^i v^iiti ^.ii<-i -wi 1— 1 — ..w.- 

M.i.3 DOLaST - address of the end of the DO tables- 

H.m Dim - address of the start of the dimension list- 

M-l-S SYfll - start of the symbol table- 

H.E The cell SUBREF -CRA+lbBJ is set non-zero if NAMELIST 
issued a SUB macro reference. 

5.Q Structure. The processing of NAMELIST statements is 
accomplished in one pass for each NAflELIST group. A 
NAflELIST group must begin with a series of three entries^ 
a slashr followed by a vari abler followed by a slash- 
A NAMELIST variable list must then followr where the 
variables are separated by commas. 

5.1 The variables associated with the NAHELIST name are 
entered into the symbpl table if not already there. If 
previously defined the variable is checked for acceptable 
mode- If notf the variable is typed» using natural typingr 
BSS storage is issuedr and the common and defined bits are 
set for the symbol table entry. The common bit is set to 
inform ENDPROC not to issue storager since the NAilELIST 
processor has already issued storage- 

5.2 If the variable is equ i valencedr the base and bias are 
formed for use in the macro reference- If the variable 
is a formal parameter r this information is saved for the 
macro reference. 

5-3 The macro reference is formed in the following manner- 

NAtlE NrTrBASErBIAS,FPfDlrDSrD3 

where N = variable name 

T = typer i-e- l=logicalr E=integerr H=realr 5= 
doubler b=complex 
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b-D 
b-l 



BASE = base name of equivalence class 

BIAS = pointePr relative to baser for this 
equivalence class element 

FP = 1 implies this variable is a formal parameter 

Dl = dimension 1 of an array 

DE = dimension 1 times dimension E of an array 

D3 = the number of elements of a 3 dimension array 

Only the necessary parameters are passedr i-e- for a 
simple variable the macro reference would be- 

NAME N,T 

For a one dimension array the macro reference would be- 

NAME NrT,rrrDl 

The structure of the NAflELIST group information passed to 
the COflPS file would be as follows: 

A Any BSS storage allocation for this group 

B NAI1ELIST group name BSS D 

C VFD la/OrME/DL ^NAHELIST group name^ 

D All macro references for the group 

E DATA OB 

FORflATS 

The following internal cells are used during NAIIELIST 
processing: 



b-1-1 PNEXT - next position available in working storage. 

b-l-E DNEXT - next position available in NAMELIST for BSS 

storage. 

b.1.3 VARNAflE - contains variable name - eight charactersr 

right adjustedr with blank fill- 
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b.1.4 riACROIN - flag used to determine whether the NAME macro 

definition has been written onto the COMPS 
file. 

b-l-S DATASKEL - two word skeleton in which each BSS storage 

issue is formed- 

k . 1 , y DATABSS - forty word sres in which BSS storage issued is 

temporarily accumulated for the COMPS file- 

(3.1.7 flACSKEL - seven word area in which macro calls are built 

b.l.a AUXSTORE - first available position in temporary storage 

this is where the macro calls begin. 
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l.D GENERAL 

I. I PRINT process the I/O type statements READ-. URITEn PRINTi 
PUNCH-, ENCODEn DECODE-. BUFFER IN-, BUFFER OUT-, END FILE-, 
BACKSPACE and REWIND- It calls the DO processor to process 
all implied DO loopsr and call ARITH to generate the addresses 
for all variables in I/O lists. The processor is located in 
Phase E of the compiler- 

E-D Entry point names. 

E.l PRINT 

This entry point is en|:ered when a statement of the form 
PRINT f or PRINT fr k is encountered. 

E.E READ 

This entry point is entered when a statement of the form READ 
-[u> k or READ -Cur f> k or READ -Lur f> is encountered. 

E.3 PUNCH 

This entry point is entered when a statement of the form 
PUNCH f or PUNCH fr k is encountered 

S.H WRITE 

This entry point is entered when a statement of the form 
WRITE -Cu> or WRITE -Cu, f> or WRITE -Cur f > k i s encountered. 

E.S BUFIN 

This entry point is entered when a statement of the form 
BUFFER IN -Cur p> -tA-. B> is encountered. 

E.b BlJfOUT 

This entry point is entered when a statement of the form 
BUFFER out -Cur p> -CA-, B> is encountered. 

E.7 ENDFILE 

5s^ This entry point is entered when an statement of the form 
ENDFILE u is encountered. 

S-a REW 

This entry point is entered when a statement of the form 
REWIND u is encountered. 
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E.^ 



E.ID 



2. 



2.12 



2. 13 



2.m 



2.15 
2.15.1 



DEC 

This entry point is entered when a statement of the form 
DECODE -Ccf nr v> k is encountered. 

ENC 

This entry point is entered when a statement of the form 
ENCODE -Ccr nr v^- k is encountered. 

BKSP i 

This entry point is entered when a statement of the form 
Backspace u is encountered. 

DOITX 

This entry point is used by the DO processor when returning 
to the PRINT processor after being called to set up on 
inpl ied DO loop. 

DOGOOFX 

This entry point is used by the DO processor when returning 
to the PRINT processor after being called when an error 
has occurred. 

DONEX 

This entry point is used by the DO processor when returning 
to the PRINT processor after being called to generate the 
final coding for an implied DO loop. 

EXTERNAL SYflBOLS 

IXFN 

This routine is called to generate the address for all 
variables in I/O lists. SELIST contains the variable that 
the address is to be generated for. Upon return X2 contains 
the ordinal of the indentifier in the SYflBOL table. 



2.15-2 LABEL 



This routine is called to enter labels into the SYMBOL 
table. 
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E.15.3 yRUDS 

This noutins is called to transfer R-List into the 
R-List buffer. 

^.ls.^ ERPRO 

This routine is called to enter diagnostics into the error 
table. 

a. 15-5 DOCALL 

This routine is called to inform the DO processor that a 
jump to an external procedure will be made. 



E . 1 5 . o 1/0. 



This routine is called when it is necessary to set up an 
implied DO loop- The address of the equal sign for the 
implied DM being processed is contained in Bl- 



2. IS. 7 DOGOOF 



This routine is called when an error situation occurs- 
The DO processor will close out any DO loops which may 
be in effect. 

E-lS.lfi DONE 

This routine is called to generate the terminal code for 
the implied DO loop. SELIST points to the DO control 
variable. 

2.15.T STR 

This routine is used send one word to the R-List buffer. 

E-IS.ID ASAER 

This entry point is called whenever a non-USASI I/O 
statement appears. 

E.lS.ll PHERETN 

This entry point is called after a fatal error is diagnosed 
E.I5.1E SYHBOL 

This entry point is used to enter and find symbols in the 
symbol table. 
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2. IS. 13 DODEF 

This routine is called whenever an integer variable 
definition occuns- 

3-D Diagnostics produced 

3.1 Fatal to compulation.' None. 

3-E Fatal to execution 

3.2.1 ILLEGAL _SE(3UENCE IN I/O LIST. The parameter associated 
with this diagnostic indicates the element which caused 
the processor to stop^ process ing the statement. 

3.E.2 UNIT NUHBER OR PARITY INDICATOR HUST BE AN INTEGER CONSTANT 
OF VARIABLE. 

3sa.3 NUMBER OF CHARACTERS IN AN ENCODE/DECODE STATEMENT MUST 
BE AN INTEGER CONSTANT OR VARIABLE. 

3.E.H FORHAT REFERENCE MUST BE AN INTEGER CONSTANT OR AN ARRAY 
REFERENCE. 

3.a.S THE VALUE OF THE PARITY INDICATOR IN A BUFFER I/O STATEMENT 
MUST BE D OR 1. 

3-3 INFORHATIVE. None. 

3.4 Non-USASI 

THIS FORM OF AN I/O STATEMENT DOES NOT CONFORM TO USASI 
SPECIFICATIONS 

H.D STRUCTURE 

M.l PROCOn 

This routine is used to control the processing of both the 
PRINT and PUNCH statement sincep except for the object 

time routine being calledr the processing required is 

ident ical • 

4.E FINIS 

This routine is entered to set up the terminating call to 
execution I/O routines for all I/O lists. 
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H.3 GETORD 

Enter with name in XI. This routine calls SYHBOL to enter 
the two entry points used for each I/O routiner and sets 
the EXT bit- It then generates a RJ -Cwith error tpace> to 
the appropriate entry point- 

H-H lOLIST 

Performs a partial syntax check on all I/O lists- When a 
left parenthesis is encountered -Cnot including subscripted 
references^ a syntax check is made until the corresponding 
right parenthesis is encountered. If no errors are found 
when the zero level right parenthesis is encounteredr a 
call to DOIT is made to set up an implied DO loop. 

ii r X i\r-M T 

n . a Xi/LlM I 

This routine is called by lOLIST when it -CIOLISTJ has deter- 
mined there is a variable to process. In the case of 

l -[A-CK>r B-tJ>r K=lr I □> r J=lr 1 D> 

five calls would be made to IDENT from lOLIST the E-list 
pointer the five cases are pointing a Ar Br Kr J. In the 
case of K and Jr IDENT will look ahead and determine the 
next operator is an equal sign and call DONE to generate 
the terminal DO loop code. IDENT determines whether the 
identifier is a variabler arra^ elementr array namer and 
the type- The address of the identifier is obtained by 
making a call to IXFN. IDENT then generates the appropri- 
ate R I ist- 

M.b PROUF 

This routine determines the mode of the I/O statement and 
calls a routine -CFIITNOJ to process the format number if it 
is necessary. 

M.7 PROU 

Process unit. This routine is used for two functions- 
-Cl> process unit number for all statements and -CE> process- 
ing the parity indicator for BUFFER IN/OUT statements. 

H.6 TAPEN 

If the unit number is constant r TAPEN is entered to gener- 
ated R list code for SBE TAPEN. 
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H.T TESETI 

This routine is called when the macro TESET is refenenced- 
Its purpose is to generate a type III R-Iist entry followed 
by a register stace- The parameter in the macro reference 
is the SO field of the R-list entry- 



M.ID REGCOriP 



This routine is called when the macro REGCOH is referenced. 
Its purpose is to generate R-list instructions to comple- 
ment a specific -CSB5-BE>. The parameter in the macro refer- 
ence is the S field of the R-list entry. 
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ASSIGN 

1.0 General 

1.1 Assign processes the ASSIGN statement, and is a part of 
PHASE 2 of Pass 2. 

2.0 ASSIGN 

2.0.1 Processes the "ASSIGN label TO variable" statement. 

2.0.2 ASSIGN is entered via a return jump, and exits through its 

entry point. 
2.0.^3 The statement is Syntax checked. If correct, R-LIST entries 

are made to accomplish the following: 

SXi statement label's address 

SAi variable - store the address 

3.0 Diagnostics 

3.1 No fatal to compilation diagnostics. 

3.2 Fatal to Execution 

3.2.1 THIS ASSIGN STATEMENT HAS IMPROPER FORMI^T ( ONLY ALLOWABLE 
FORM IS ASSIGN LABEL TO VARIABLE ). 

3.3 No informative diagnostics 

3 .4 ASA 

3.4.1 THE VARIABLE IN THIS ASSIGN STATEMENT IS NOT OF TYPE INTEGER, 

4.0 The following cells are referenced and expected to be set 
accordingly. 

4.0.1 SELIST address of the first entry in ELIST. 

4.0.2 NRLN value to use for the next Register number. 

4.0.3 DIMl contains first word address of the dimension table. 

4.0.4 CLABEL contains the current statement label 

4.1 The following routines are called: 
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4.1.1 WRWDS used to transfer words to the R-LIST file. 

4.1.2 SYMBOL used to find/or enter entries into the symbol table. 

4.1.3 DOIABA used to enter the label into the symbol table and get its 

ordinal. 

4.1.4 ERPRO i used to issue fatal to execution diagnostics. 

4.1.5 ASAER used to issue non-USASI diagnostics. 

5.0 STRUCTURE The processing is straight forward. 

5.1.1 The current label is saved and DOLABA is called, if the E -LIST 
entry is a constant, to eilter the label in the symbol table and 
get its ordinal. 

5.1.2 The statement is then checked for syntatical errors. 

5.1.3 The instructions for setting a register to the address of the 
label are formed and saved. 

5.1.4 The portion of the variable is then checked to see that a variable 
is there and SYMBOL is called to enter it in the symbol table. 

5.1.5 If it is equiva lenced , that is handled at this time, by referencing 
the base plus a bias (if any) . 

5.1.6 The store instruction is then formed and WRWDS is called to place 
these entries in RLIST. 

5.1.7 The non-USASI diagnostic is issued if the variable is not of type 
integer . 

6.0 Formats - no flags are used. 

6.1 FIRST and SECOND contain the packed op code for the set and store 
instructions. 
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7.0 Modification 

7.1 All cells referenced are set by EQU's. 
8.0 Method - straight forward. 

9.0 No cautions to modifier. 
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Entry 



l.D General 

1.1 ENTRY is in Phase E of Pass 1 and performs the following 
onerat i ons • 

i-l"l Processes the ENTRY statement. 

1.1. E Places the entry macro ENTR- in the COnPASS file if it 
i s not already there. 

1-1-3 Places the reference to the entry macro in the R-list 
file- 



c-D ENTRY has one entry point 

E.l ENTRY 

E.l-l ENTRY processes the ENTRY statement. 

E-l.E ENTRY is entered with a return jump and exits through 
its entry point. It processes one entry statement - 

E.1.3 An ^entry^ entry -[0C=55> is placed in the R-list by 
calling STR. If the entry macro has not yet been 
placed in the COjIPASS f i ler it is via URUDS. 

3.0 Diagnostics Produced 

3-1 No fatal to compilation diagnostics are produced. 

3-E Fatal to Execution 

3.E.1 ENTRY STATEMENT IS NOT ALLOWED TO APPEAR IN A PROGRAH, 
ONLY IN A SUBROUTINE OR FUNCTION- 

3.E.S IMPROPER FORM OF ENTRY STATEMENT. ONLY ALLOWABLE FORM 
IS -[ENTRY NAME>. 

3.E-3 ENTRY POINT NAMES MUST BE UNI(3UE - THIS ONE HAS BEEN 
PREVIOUSLY USED IN THIS SUBPROGRAM. 
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3.E.H STATEMENT NUIIBER IS NOT ALLOWED ON AN ENTRY STATEMENT- 

3.M No informative diagnostics. 

3.5 USASI diagnostics 

3.5-1 The following diagnostic is always given: THE ENTRY 
STATEMENT IS A NON-USASI STATEMENT- 

M-0 The following cells are used and expected to be set 
accordi ngly - 

M-l-l SELIST Address of next entry in ELIST 

M-l-E ELAST Address of last entry in ELIST 

M.3j.3 CLABEL Label of the current statement 

H-m PGM Program/subprogram flag word 

H.E The following routines are called. 

H-E-1 liJRUDS To transfer words to the compass file 

H-E-E STR To transfer one word to the R-list file 

^.E.3 DOENT To inform DO of an entry statement 

H'2-^ SYMBOL To handle the symbol table 

H.E.5 ERPRO To handle any fatal to execution errors detected 

in the statement 

^'2-[^ ASAER To give the non-USASI diagnostic 

^.E.7 SCHBET To determine if the ENTRY is the same as any 

intrinsic or basic external namer and make 
unique by suffixing a ^ if so. 

5.D The CLABEL and PGM words are checked to make sure the 

ENTRY statement does not have a label and that it is not 
apF^earing in a program. 



5-1 



If this is the first ENTRY statementr one of the following 
ENTRY macros will be transferred \/ia URUDS to the COMPASS 



file 
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5- 1-1 tlacro for a subprogram with no arguments 

ENTR. NACRO NAME 

LOCAL T 

EQ T 
NAHE ess 1 

ENTRY NAME 

SAl NAFIE 

BXb XI 

SAb ENTRY 
T BSS D 

ENDfl 

S-l-S flacro for a subprogram with arguments {includes more 
than a macrol 







USE ENTRY. 




FTNNOP. DATA ^bDOD^bDDD^bDDD^bDDDB 






USE DATA. 




NOPS 


. DATA HbDDOMbDDOHbODDMbODDB 




ENTR^ 


. flACRO NAME 

LOCAL Xr Z, T 
EQ T 




NAHE 


BSS 1 

ENTRY NAflE 
SAE X 
BXb XE 
SAb FTNNOP. 
E(3 ENTRY. +1 




X 


EQ I 




Z 


SAl NOPS. 
SAE NAflE 
BXb XI 
LX7 XE 
SAb FTNNOP. 
SA7 ENTRY. 




T 


BSS D 
ENDU 


S-E 


The J 


statement is then checked furt 


5.3 


The i 


2ntry name is entered into the 



SYMBOL; if it was there alreadyr a diagnostic is given- 

S.H The mode of the name is set to ENTRY statement -C1EB> and 
the ENT bit -CSBJ is set- 
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5. 5 An entry reference -COC=SSB> is placed in the R-list file 
by cal I ing STR- 

S-b The non-ASA diagnostic is given- 

5.7 For Version Er if the larger macro is to be refenencedr 
one word each is added to the DATAA count and the ENTRYA 
count to account for the no-ops created- 



b-D FORMATS: 

b-l ENTRYF - initially zero, set non-zero when the entry 

macro is transferred to the COHPASS file- 



7.D Modification: 

7-1 All diagnostic numbers are set by E(3U''sr as are all low 
core cells referenced^ 
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GO TO 

1.0 General 

1.1 The GO TO processor processes all GO TO-tjrpe transfer statements 
except unconditional GO TO's following logical IF'S and generates 
appropriate R-list code. It is called by PH2CTL and it will call 
GTARTH, DOLABR, WRWDS and STR for R-list output. 



2.0 Usages 

2.1 Entry Point Name: GOTO 

2.1.1 GOTO processes the GO TO statements. 

2.1.2 GOTO is entered via a return jump. If the statement is in correct 
form, the processor exits through its entry point after the state- 
ment has been processed. 



2.2 


GOTO is to produce the following code 


2.2,1 


Unconditional GO TO 




EQ 


"LABEL" 


2.2.2 


Assi 


.gned GO TO 




^1 - 


^ — Variable 




^1 


' h 




JP 


\ (Bl) 


2.2.3 


Two 


branch transfer 



a) If neither branches are the same as next statement 



^1 


-^1 — Variable 


^ 


= R, -2 


NG 


R^, 1st branch 


PL 


R^, 2nd branch 



b) If 1st branch is same as next statement 
R^ ^ — Variable 

R2 = R^ -2 



; A 13 6-1 REV 10-67 



CONTROL DATA CORPORATION • COMPUTER EQUIPMENT GROUP 
DIVISION 

DOCUMENT CLASS^ PAGE NO 21.E. 

PRODUCT NAME FORTRAN Extended 

PRODUCT MODEL NO. ^^^16 MACHINE qFRipS 64/65/6600 

2,2,4 Three branch transfer 

a) No branches same as next branch 



^1 


< 


Variable 


h 


= 


R,-2 


NG 




R^s 1st branch 


ZR 




R^, 2nd branch 


LT 




BO, R2, 3rd branch 



b) If either the second or third branches are the same as 
the next statement, the appropriate test jump will be 
deleted, 

c) If the 1st branch is the same, it will be deleted on 6400' s 
but not on 6600' s. 

2,2,5 More than 3 branches 



GLn. 



^1 ^ 


Variable 


h = 


R^ - CONSTANT, 


PL 


R^, LAST BRANCH 


^1 = 


R^ - CONSTANT;^ 


LT 


Bl, BO, FIRST BRANCH 


JP 


GLn., Bl 


BSS. 





EQ 


2nd BRANCH 


EQ 


3rd BRANCH 



EQ NEXT TO LAST BRANCH 

CONSTANT (1) is equal to the number of branches minus the number 
of times the last branch appeared before a different branch was 
encountered plus 1, 

CONSTANT (2) the number of times the first branch appeared before 
a different branch was encountered plus 1, 
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GO TO (1, 1, 1, 1, 2, 3, 4, 5, 5, 5, 5) I 
would compile into 

R^ = R^ - lOB 
PL R2' '^ 

GE BO, Bl .1 
JP GL44., Bl 
GL44.BSS 
EQ .2 
EQ .3 
EQ .4 

3.0 Diagnostics 

3.1 No fatal to compilation diagnostics are produced. 

3.2 Fatal to Execution 

3.2.1 EITHER THE EXPECTED LIST OF TRANSFER LABELS IS NON-EXISTENT, EMPTY, 
OR NOT ENCLOSED IN PARENTHESES. 

3.2.2 THIS IS NOT A RECOGNIZABLE FpRM OF THE GO TO STATEMENT. 

3.2.3 THERE IS A NON-NUMERIC ENTRY IN THIS LIST OF TRANSFER LABELS WHEN 
ONE IS REQUIRED. 

3.2.4 IN TEES GO TO WELCH WAS ASSUMED TO BE AN UNCONDITIONAL GO, THERE 
IS AN ENTRY FOLLOSniNG THE STATEMENT LABEL. 

3.3 Informative Diagnostics 

3.3.1 THERE IS AN ENTRY FOLLOWING THE RIGHT PARENTHESIS OF THIS ASSIGNED 
GO TO LIST. 

3.4 Non-USASI 

3.4.1 THIS GO TO STATEMENT CONTAINS NON USASI USAGES 
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4.0 



4.0.1 


SELIST 


4.0.2 


NLABEL 


4.0.3 


NGLN 


4.0.4 


EIAST 


4.0.5 


NRLN 


4.0.6 


DOIAST 


4.0.7 


LELIST 


4.0.8 


GOTOCEI 


4.1 


The fol 


4.1.1 


DOLABR 


4.1.2 


SYMBOL 


4.1.3 


STR 


4.1.4 


WRPTOS 


4.1.5 


ASAER 


4.1.6 


ERPRO 


4.1.7 


GTARTH 



5.0 
5.1 



Enviromnent: 

The following cells are expected to be properly set. 

Address of next entry in E-List. 

Label, if any, on the next statement to be processed. 

Number to use for the next generated label. 

Address of the end of statement. 

Next R number available to use. 

Contains first word address of working storage during 
PASS 1. a 6 

Non-zero of GOTO is object of logical IF. 

Set non-zero if GO TO is not object of a logical IF. 



The following routines are called. 

Informs DO of a transfer label. The symbol table ordinal 
for the label is returned in B., . 

Symbol table entry and search. 

Enter one word in R List. 

Enter many words to a specified file. 

Called to issue non USASI diagnostics. 

Called to issue fatal to execution diagnostics. 

Is called to handle the i field of the assigned or 
computed TO TO. It handles expressions, mode changes 
and equivalence changes. UPON return NRLN contains the 
R plus 1 that contains the value of the index. (If the 
i field was not a simple integer variable an USASI diag- 
nostic is issued). 

STRUCTURE: The statement is examined to determine which type of 
GO TO it is. 

UNCONDITIONAL GO TO: The entry after the statement label is checked 
and a diagnostic flag is set if it is not end of statement. An EQ 
LABEL R-list entry is formed in X6 and STR is called to transfer it 
to the RLIST file. GOTO then exits, giving a fatal error diagnostic, 
if necessary. 
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5.2 ASSIGNED GO TO j 

5.2.1 The statement is checked for proper format and at the same time 
DOLABR is informed of the transfer labels. 

5.2.2 The variable is placed in a cell within GOTO that is preceeded by 
an end of statement. SELIST is set to this cell and GTARTH is 
called to compile instructions for the reading of the variable. 
This was done so the GO TO processor would not have to worry about 



ami-itn^T oinr>ari ^rQ r"-i o'm oe 



5.2.3 A reference is placed in the RLiST file, using STR, to the following 
macro. 

GO MAGROl RMACRO 0,1 ASSIGNED GO TO 

SA Ii,0,Pl ONE PARAMETRIC R 

RS I1,0,B1. SET II TO PARAMETRIC R 

JIN 0,11,0,0,0 II IS TO BE Bl 

ENDR INDEXED JUMP 

GO TO then exits via its entry. 
5,3 Computed GO TO 

5.3.1 The list is scanned for correct sjmtax and to determine the 
following: 

5.3.1.1 The number of branches 

5.3.1.2 The number of times the first branch was repeated before another branph 
intervened, 

5.3.1.3 The number of times the last branch was repeated before another branch 
intervened. The computed GO TO is then broken down into two cases. 

5.3.2 TWO or THREE branch GO TO*s are special cased in that each branch is 
compared to the label of the next statement and if they are the same 
the test instruction is not compiled. 

The only special case is under 2.2.4 

5.3.3 GTARTH is called to compile instructions to bring the value of the 
index to a register. The R+1 that contains the value will be in 
NRLN upon return. 
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5.3.4 



5.3.5 



6.0 
6.1 
6.2 
6.3 



A macro reference to the following macro is placed in a temporary 
RLIST buffer. 

G0MACR02 RMACRO 3,1,2 COMPUTED GO TO 
THREE IH FIELDS ARE: 

1. FIRST BRANCH 

2. LAST BRANCH 

3. VALUE FOR GENERATED LABEL 

PARAMETRIC R IS R THAT HAS INDEX VALUE IN IT. (COMPUTED BY GTARTH) 
TWO CONSTANTS ARE: 

1, REPEAT COUNT FOR LAST BRANCH 

2. REPEAT COL^T: FOR FIRST BRANCH 



STT 


I1,P1,K1 


Ri = R(pi)-Kl 


JPOS 


11,0,0,2 


PL Ri, LAST BRANCH 


STT 


I2,P1,K2,0 


SBl=R^p^^-K2 


RS 


I?,0,B1. 




JLT 


12,0,0,1 


GE B0,B1, FIRST BRAN( 


JIN 


0,12,0,3 


JP Bl+GLn. 


LAB 


0,3 


GLn. BSS 


ENDR 







Unconditional jumps are then placed in a temporary RLIST buffer 
for all inside transfer labels. 

If the next to the last non-repeated label is the same as the next 
statement, no jump is compiled. 

Formats of internal cells: 

ASA - Set non-zero when non ASA usage detected, 

VARIABLE -Contain first entry in expression of computed GO TO. 

ANLBRNCH - Contain address of next to last branch in computed GO TO. 
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6.4 INDEX Used to save 3 index registers. 

First and last branch of computed GO TO list. 

End and start of branch list after it is moved. 

Used to save A7. 

Next to last branch in computed GO TO. 

All cells referenced as well as diagnostic 
numbers are set with EQU's. 



6.5 


FBEANCH 




LBRANCH 


6.6 


EOBL 




SOBL 


6.7 


SAVEA7 


6.8 


NLBRANCH 


7.0 


Modification 
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, ASF PRO 

1.0 General Information 

1.1 ASFPRO consists of two independent subroutines ASFDEF and ASFREF . 
ASFDEF processes all ASF definitions by saving the text in a table; 
ASFREF processes all references to ASF's by expanding the ELIST by 
inserting the ASF definition. 



2.0 Usages 

2 . 1 ASFDEF 

2.1.1 Function of ASFDEF. Calling ASFDEF will process the entire E-list. The 
modified E-LIST is moved to ASFTAB and the CONLIST'and DDL pointers 
are incremented to compensate for the growth in ASFTi\B. 

2.1.2 ASFDEF is called with a return jump. It is only necessary that 
SELIST (RA + 32B) point to the E-LIST entry containing the ASF 
name. Return is to PH2RETN either directly or through ERPRO. 

2.1.3 Processing flow description. 

1. The parameter list is checked for proper format. 

2. All references on the right of the equal sign to parameters are 
replaced with parameter ordinal indicators. Any entires in 
CONSTOR are moved to the ACF TAB area. 

3. The ELIST after the equal sign is moved to the ASF XAB area. 

4. The ASF text is linked to any previous ASF texts. 

2.2 ASF REF 

2.2.1 Function of ASFREF. ASF ref is called whenever a reference to an 
ASF is encountered by ARITH. ASFRFF rrplaces the reference to the 
ASF with the ASF text reEuitlng in an expanded E-LIST statement. 
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2.2.?. ASFREF is called by a return jump with SELIST pointing to the ASF 

name within E-LIST, 
2.2.3 Processing flow description. 

1. The ASF name is checked to see if it has been properly defined. 

2. The remainder of ELIST is moved next to DDL. 

3. The parameters to the ASF are bracketed and checked for 
correspondence in number uith the definition. 

4. The text is expanded and appended to ELIST. 

5. The part of the statement following the ASF parameter list is 
ELIST. 

3.0 Diagnostics produced. 

1. Dummy parameter is an arithmetic statement function definition 
occurred twice. ^ 

2. Arithmetic statement function has caused a table overflow while 
being processed. 

3. Arithmetic statement function has more dummy parameters than 
allowed. 

4. Arithmetic statement function has an improperly formed parameter 
list of no = follovjipg the list. 

5. A reference to this arithmetic statement function was not 
followed by an open paranthesis. 

6. Insufficient memory vjas available for the evaluation of this 
arithmetic statement function reference, possibly a recursively 
defined ASF. 

7. A reference to an improperly specified arithmetic function has 
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been encountered. 

8. A reference to this arithmetic statement function has unbalanced 
parenthesis within the parameter list. 

9. The number of parameters used in referencing this arithmetic function 
does not correspond to the number in its definition. 

3.1 Fatal to compilation diagnostics. 

3.2 Fatal to execution diagnostics. 

3.3 Information diagnostics. 

3.4 Non-ASA diagnostics. 

4.0 Environment. The following is a list of the required characteristics of 
variables external to ASFPRO. 

1. RA is zero. 

2. ASFl = RA -^ 25B is the first available cell for ASFPRO tables. 

3. DOL = RA + 30B is ASFLAST + 100. 

4. DOLAST = RA -1- 31B is ASFLAST -r 100. 

5. SELIST = RA + 32B contains machine address of ASF name. 

6. ASFLAST = ?A -'r 263 is next available cell for ASF tables, 
initially equal to ASFl. (c^0AijJ\^ (j^..^ ^/ ^ ^^ ' ', . ^ 



7. SYtlEIIB = ?A ■:• 13B is end of svmbol table 
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PH2CTL 



1.0 General Information 

1.1 PH2CTL Phase 2 control serves as the interface routine between SCANNER 
and the appropriate processors for all non-specification type statements. 

2.0 Usages 

2.1 Entry point names 

2.1.1 PH2CTL This is the initial entry point to Phase 2. All Phase 2 core 
initialization is done at this time (see paragraph 4.0). 

2.1.2 PH2RETN, This is the entry point vy?hich can be used by any processor 
when an error situation arises and it is desired to resume normal pro- 
cessing. This routine checks to see if a statement label exists and if 
so, jumps to DOLAB to do the post-processing label handling. An End-of- 
Statement Is written to the R-list file and processing then resumes for 
the next statement. 

2.1.3 STR (Store R-list) is a routine which can be used to store one word of 
R-list in the R-list buffer. The R-list entry should be in X6. The 
routine saves all B registers and XO through X3. 

2.2 Processing flow description 

A return jump to SCANNER is made for each statement (one exception: 
logical IFs), A check Is made to determine if the statement Is executable, 
if not, a diagnostic Is issued. If the statement is labeled a call to 
DOLABCN Is made, unless the statement is NAMELIST, DATA or FORMAT. If 
the statement is unlabeled, It Is determined if a path to the statement 
exists, If not an informative diagnostic is Issued. A cell in common called 
STSORD (statement temporaries) Is compared against STMAX (maximum number of 
cells needed for statement temporaries) and STMAX Is updated If STSORD 
STMAX. NRLN (next R-llst name, location 64) Is compared to a maximum value 
If NRLN exceeds the maximum value, NRLN Is reset to two. A jump Indexed by 
the statement type Is made to VTABL (statement vector table) and control Is 
given to the appropriate processor. 

Upon return from the processor, DOLAB is called If a label exists. An 
end-of-statement code is written to the R-list file and process begins 
again with a return jump to SCANNER. 

3.0 Diagnostic produced. 

Number 109, Fatal to execution 

DECLARATIVE STATEMENT OUT OF SEQUENCE 

Number I78, Informative 
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THERE IS NO PATH TO THIS STATEMENT 
k,0 Formats 

4.1 Menwry pointers and flags 
4,1.1 DIMl is set up by DPCLOSE, fwa and length of auxiliary table. 

ASF1 last word address +1 of the auxiliary table. 

ASFLAST last word address of the ASF table, initially set to ASFl. 

DOl first word address of DO table, initially ASFLAST+100. 

DOLAST last word address of DO table, Initially set to DOl. 

GOTOCEL flag which indicates the last statement processed was a GO TO, 
init ial Iv zero. 

- - - - f 

CONLAST contains last word address used for CONLIST, the program constants, 
initially set to CONl. 

FSTEX first executable flag, initially zero, set to non zero when the 
first executable statement is processed. 

NRLN next R-list name, initial value is 2. 

STMAX number of cells needed for statement temporaries at execution time, 
initial value is 1. 

STSORD number of statement temporaries needed during the processing of 
any one statement. 

NGLN contains the value of thp next generated label. 

DOFLG Set non-zero when a DO loop is in effect. 

LSFLAG last statement flag, value is 1 if last statement was a RETURN, 
GO TO or arithmetic IF, and is used by the END processor. 

5.0 Remarks 

The vector table is built using a macro which sets several flags depending 
on what type of statement is being processed, the name of the macro is JMP, 

JMP 



MACRO 


PROG, LSFLAG, FSTX 


IFEQ 


LSFLAG, 0, 1 


SA6 


B6 


IFEQ. 


LSFLAG, 1, 1 
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SA7 
IPC 

SA7 
RJ 

Ea 

ENDM 



66 

EQ, **FSTX''?*, 1 

AO 

PROG 

PH2RETN 
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DECPRO 
Declarative Statement Processors 



l.D General Information 

The declarative processing program has entry points 
entered to process: PROGRAn, SUBROUTINE, FUNCTION, 
BLOCK DATA, COnnON, DIMENSION, Ei3UIVALENCE , EXTERNAL 
and Type statements, and resides in Overlay l-DD- 



E.D 



Usages 



2-1 Entry point: DPROG. 

2.1-1 DPROG syntax checks PROGRAM statements and produces 
COMPASS code to set up buffer areas for file names 
mentioned in the statement. 

E-l-E DPROG is entered by an unconditional jump to DPROG and 
control is returned to PROGRTN in PHICTL- 

E.1.3 The program name is saved in the RA area and entered into 
the symbol table. The file names are entered in the sym- 
bol table. IDENT and ENTRY line images are sent to the 
COMPASS file followed by the code to set up the file name 
buffer areas. 

E.E Entry point: DPSUB. 

E.E.I DPSUB syntax checks SUBROUTINE statements andproduces 
COMPASS code for formaj parameter initialization and 
address substitution code. 

E.EnR DPSUB is entered by an unconditional jump to DPSUB and 
returns control to PHISCAN in PHICTL. 

E.E.3 The number of formal parameters is saved in the RA area- 

The subroutine name and formal parameter names are entered 
into the symbol table. IDENT and ENTRY line images are 
sent to the COMPASS fi;le followed by formal parameter 
initialization code if necessary. 
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2.3 Entry point: DPFUN- 

B.3.1 DPFUN syntax checks FUNCTION statements and produces 
COriPASS code for formal parameter init ial izat ion- 

2.3.E DPFUN is entered by an unconditional jump to DPFUN and 
returns control to PHISCAN in PHICTL- 

E-3.3 The number of formal parameters is saved in the RA area* 
The function name and parameter names ars entered into 
the symbol table- The COMPASS code produced is the same 
as for a subroutine statement r followed by storage allo- 
cation to hold the function result- 

E-M Entry point: DPBDA- 

S-M-l DPBDA syntax checks BLOCK DATA statements and produces the 
IDENT COnPASS line image- 

a.4-S DPBDA is entered by an unconditional jump to DPBDA and 
returns control to PHISCAN in PHICTL- 

E-H.3 The block data name or an assumed name is entered into 

the symbol table- The IDENT ^Name^ line image is sent to 
the COnPASS file- 

E-S Entry point: DPEXT 

E-S-l DPEXT syntax checks EXTERNAL statements and makes and/or 
modifies symbol table entries for the names that appear 
in the statement. 

E-S-E DPEXT is entered by an' uncondi t ional jump to DPEXT and 
returns control to PHISCAN in PSICTL- 

E-S. 3 Each name appearing in the statement is entered into the 
symbol table if not already there- 

E-b Entry point: DPDIH- 

E-b-l DPDin syntax checks DIMENSION statementsr makes symbol 

entries for the names that appeared if necessary and makes 
entries in the auxiliary table to hold the dimensional 
information- 

E-b-E DPDin is entered by an unconditional jump to DPDId and 
returns control to PHISCAN in PSICTL- 
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E-b.3 The dimensional information is held in a two word entry 
in the auxiliary table area- Each new entry is linked 
to its successor by table address. The index of the 
dimension list entry is placed in the symbol table entry 
for the name- The index is increased by two preparing 
for the next entry. 

E.7 Entry point: DPCOn. 

E.7.1 DPCOfI syntax checks COIinON statements, makes symbol tabl6 
entries for the names that appeared if necessary and makes 
entries in the auxiliary table area to hold the common 
block information. 

E.7.E DPCOn is entered by an unconditional jump to DPCOM and 
returns control to PHISCAN in PSICTL- 

E.7.3 The first appearance of a block name generates a two word 
entry in the common listn one to hold the block name and 
linkage to the table area for the next block name, and one 
to hold equivalencing information if necessary and linkage 
to the table area for the next appearance of the same block 
name. Each block member name generates a one word entry 
to hold linkage to the next block member and member name 
i dent if icat ion. 

E.fi Entry point: DPTYP- 

E-fi.l DPTYP syntax checks Type-statements and makes and/or 

modifies symbol table entries for the names that appear. 

S.fi.S DPTYP is entered by an unconditional jump to DPTYP and 
returns control to PHISCAN in PSICTL. 

E-fi.3 Symbol table entries are made for the names if not already 
made with the explicit type set. If dimensional infor- 
mation appears this will generate the auxiliary table 
entries as described in E-b- 

E-^ Entry point: DPE(3U. 

E-T.l DPEC?U syntax checks Ei3UIVALENCE statements and generates 
equivalence list entries in the auxiliary table for each 
name that appears- 

E.^.S DPEi3U is entered by an unconditional jump to DPEl3U and 
returns control to PHISCAN in PSICTL. 
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2-^-3 A two word entry is made in the equivalence list for each 
name in an equivalence group- The first word holds 
linkage to the next equivalence group and name identifi- 
cation- The second h6lds the subscripts if any that 
appeared with the name- 

E-ID Entry point: DPCLOSE^ 

2-lD.l DPCLOSE is called when the first executable statement is 
seen? to process the commonr dimension and equivalence 
informat i'onr if any r that is being held in the auxiliary 
table area' 

E-lD-S DPCLOSE is entered by an unconditional jump and returns 
control to PHECTL- 

E-lD.3 E(3UIV is called to process any equivalence list infor- 
mation- If COnnON statements appeared, CONPASS instruc- 
tions are generated to produce appropriate storage allo- 
cation- Further storage allocation instructions are 
generated for local arrays if necessary and the dimension 
list is delinked and moved to consecutive storage locations 

E-11 Entry point: E(3UIV. 

E-11-1 E(3UIV forms equivalence classes and makes necessary ad- 
justments to the symbol table and the common list when 
necessary - 

E-ll-E Ed?UIV is entered by an unconditional jump to E(2UIV with 

E(31-CRA+SSB]- in Xl- Control is returned to COfl inDPCLOSE 
unless a fatal to compilation error occurs r in which case 
control is passed to FATALER- 

E.11-3 The equivalence classes are established using ^An Improved 
Equivalence Algorithm^, Communications of the ACMr Volume 
7/Number 5/f1ayr ITbM- The table required by the algorithm 
is formed in the auxiliary table area and uses two words 
per class name- Details in section 5-11- Each equiva- 
lence class will have a base member chosen as the name 
that will be assigned the lowest address in memory for 
the class- In the case where more than one member is 
assigned the lowest location, the name that was mentioned 
first in an E(3UIVALENCE statement will be the base- Once 
a base is established, all other class members will be 
referred to as the b^se name plus the number of memory 
locations -Cbias} between the base origin and the member 
or igin- 
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One member in each class can be declared as being in 
common storage- In this case the origin of the common 
block will be the base of the class and all members of 
the block will be considered as class members - 



3-0 Diagnostics Produced 

3-1 Fatal to Compilation 

3.1-1 AUXILIARY TABLE OVERFLOU- flORE MEnORY RE(3UIREI>. 

3.1.E TABLE OVERFLOU DURING E(3UIVALENCE PROCESSING. MORE 
MEMORY REiSUIRED. 

3-2 Fatal to Execution 

3.a-l PROGRAM CARD DELIMETER MISSING- 

3-E-E FILE NAME GREATER THAN b CHARACTERS- 

3-E-3 FILE NAME PREVIOUSLY DEFINED- 

3.E-M E(3UATED FILENAME NOT PREVIOUSLY DEFINED- 

3-E-S MORE THAN SD FILES ON PROGRAM CARD OR b3 PARAMETERS ON 
SUBROUTINE/FUNCTION CARD- 

3.S-b RETURNS LIST ERROR. 

3-E.7 DOUBLY DEFINED FORMAL PARAMETER. 

3-E.a NO LEGAL LIST TERMINATOR- 

3.E.^ ILLEGAL SEPARATOR BETWEEN VARIABLES- 

3-E-lD VARIABLE HAS MORE THAN 3 SUBSCRIPTS- 

3-E-ll VARIABLE WITH ILLEGAL SUBSCRIPT. 

3.E.1E VARIABLE DIMENSION NOT FORMAL PARAMETER- 

3-S-13 COMMON VARIABLE WITH ADJUSTABLE SUBSCRIPT OR VARIABLE 
FORMAL PARAMETER- 

3-E.14 COMMON BLOCK NAME NOT ENCLOSED IN SLASHES- 

3.E-1S COMMON VARIABLE IS FORMAL PARAMETER OR PREVIOUSLY DECLARED 
IN COMMON. 
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a.E-lb ILLEGAL BLOCK NAUE- 

3.2-17 ILLEGAL SEPARATOR IN EXTERNAL STATEMENT. 

3.2.ia ALL ELEMENTS IN AN ECS COMnON BLOCK MUST BE OF TYPE ECS. 

3.E.n A PREVIOUSLY MENTIONED ADJUSTABLE SUBSCRIPT IS NOT TYPE 
INTEGER. 

3.5.ED ALL ECS VARIABLES MUST APPEAR IN A ECS COMMON BLOCK. 

3.E.E1 FORMAL PARAMETERS OR ECS VARIABLES CANNOT APPEAR IN 
E(3UIVALENCE STATEMENTS. 

3.E.ES SUBSCRIPTS NOT INTEGER CONSTANTS IN EC3UIVALENCE STATEMENT- 
E(3UIVALENCING ABANDONED. 

3.E.E3 ONLY ONE SYMBOLIC NAME IN E(3UIVALENCE GROUP. 

3.E.EH SYNTAX ERROR IN EiSUIVALENCE STATEMENT^ GROUP IGNORED- 

3.E.ES VARIABLE SUBSCRIPTED BUT NO DIMENSIONS. GROUP IGNORED. 

3.E.Eb C0MM0N-E(2UIVALENCE ERROR. EC3UIVALENCING ABANDONED. 

3.E.E7 COMMON BLOCK ORIGIN EXTENDED- EXTENSION NOT ALLOWED. 

3.E.Efi XXXXXXX SUBSCRIPT VALUE OUT OF RANGE AS DETERMINED BY 
DIMENSIONS. E(3UIVALENCING ABANDONED- 

3.E.ET XXXXXXX SYMBOL UAS INVOLVED IN CONTRADICTORY E(3UIVALENCIN6 
E(3UIVALENCING ABANDONED. 

3.3 Informative and Non-USASI. 

3.3.1 DOUBLY DIMENSIONED VARIABLE- 

3.3.E PREVIOUSLY TYPED VARIABLE- 

3.3-3 ARRAY NAME NOT SUBSCRIPTED- FIRST ELEMENT bJILL BE USED- 

H-D Environment 

The RA area is used to hold the beginning and end of the 
E-list, namely, SELIST at RA + 3EB and ELAST at RA+mB- 
The explicit type of a FUNCTION or Type-statement is 
expected at ATYPE or RA+SIB. The beginning address of 
storage for the auxiliary table is initialized and main- 
tained at AUXEND or RA+ISB. 
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5-D Structure 

S.l WROG 

S.1.1 The program name is packed in location PROGRAfl -CRA+SbBJr 
left-adjusted to bit S3 and with a bias of zeror i-e-r in 
VFD lE/EDDOBr^fi/fiH^name^. The name is entered into the 
symbol table at ordinal one with the type set to IIB and 
the ENT bit set to 1- As the file names are encounteredr 
the special characterr declared in MICRO form in the 
options file and named ^C^r is suffixed to the file name 
and entered into the symbol table? the U bit set to Ir 
and the following macro is sent to the COUPS file= 

FILE MACRO LNrNAME 

ENTRY NAMEtC* BSSZ 1 
IN$ SET NAnE#C# 
LG* SET LN+1 

VFD lb/lrEb/lE,lfl/IN$+17 

VFD bD/IN^+17ft.D/IN$+17 

VFD bD/IN$+17tLG$ 

BSSZ IE 

BSS LG$ 

ENDJI 

Then the following im^ge is sent to the COMPS file: 

IDENT ^Program Name^ 

Ther for each new equivalenced file encountered? the 
following macro call is formed and saved in a temporary 
1 ist for the COMPS f i je: 

FILE LengthrName 
After al 1 the macro references? 

FILES. BSS DB 
is sent to the COMPS file? and for each file 

VFD 4S/DL ^file name^ r Ifi/'^file name^*Ct 
is also sent to the COMPS file- 
The FILES, information is terminated by a DATA DB- 
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S.E-l 



For each of the equivaienced filesr for exampler 

TAPE1=INPUT 

the following lines are sent to the COriPS file: 

VFD M5/DL TAPElrlfi/INPUT*C+ 
TAPE1#C+ E(3U INPUT+C#= 
ENTRY TAPE1*C+ 

After all file code is issued^ 

TRACE- VFD bD/7L^Prognam Name^ 
USE CODE- 

ENTRY ^Program Name^ 
SAl FILES, ' 
RJ (SfiNTRY 
USE DATA. 

is issuedr and (GANTRY is placed in the symbol table and 
marked as an external- DPROG expects SELIST -[RA + 3EB> and 
ELAST -CRA+mBlr the pointers to the start and end of the 
E-l ist to be set- 

Each file name is also defined in the symbol tabler i-e- 
the relocation base {RBJ and reference address -[RA> 
relative to zero of the relocation base- Bits lE-lfl of 
symbol table word E hold D the RB for START- r and bits 
n-3b hold the RA- 

For Version E the START- and CODE, lengths allocated in 
DPROG are added to the STARTA and CODEA totals. 

DPSUB 

The number of formal parameters is packed with a bias of 
1 into RA + SbBr i.e-r VFD lE/EDDlB, Mfi/'^n^ - The subroutine' 
name is entered in the symbol table at ordinal one with 
the type set to IIB and the U, FP r ASFr and ENT bits set 
to 1- The formal parameter names are entered in the 
symbol tabler implicitly typed- The FP bit is set to one 
and the order of appearancer starting at zeror placed in 
the RB bits of the word B entry. When a RETURNS list 
appearsr the RETURNS parameter names are entered in the 
symbol table with a type of 7, and the Ur FP r ASFr and 
ENT bits are set to 1. The order of appearance of RETURNS 
parametersr starting at Or is placed in bits 3M to 3T of 
the word B entry. 
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If no parameters appearedr the following line images are 
sent to the COHPASS file: 

IDENT ^subroutine name^ 

USE START. 
TRACE. VFD bD/7L ^subroutine name^ * 
ENTRY. BSS OB 

ENTRY ^subroutine name^ 
^subroutine name^ BSS ]^B 

USE CODE. 

USE DATA. 

Formal parameters require the FORPAR and SUB macros to be 
issued as well as code to save ADr as follows^ 

IDENT ^subroutine name^ 
USE START. 
TRACE. VFD HE/7L ^subroutine name^r Ifi/^subrout ine name^ 
TEMPAO. BSS 1 
FORPAR HACRO X 

USE X 
X BSS OB 

ENDM 
SUB HACRO FPrCON 
.POS SET 5^-^ 
.ORG SET fi-^/S'=\ 

USE FP 

VFD 3/Er^/.P0Sr3D/C0N,lfi/.0RG 

USE ♦ 
ENTRY. BSS DB 

ENTRY ^subroutine name^ 
^subroutine name^ BSS IB 

SXb AD 

SAD Al 

SAb TEHPAO. 

USE VARDin. 

USE ENTRY. 

USE CODE. 

USE DATA. 

USE DATA.. 

USE HOL. 

FORPAR ^formal parameter^ 



DPSUB expects SELIST -CI^A+3EB> and ELAST -CRA+IMB} to be set 
to the start and end of E-list respectively- 

For Version S the START- and DATA, lengths allocated in 
DPSUB are added to STARTS and DATAA- 
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5.3 DPFUN 

5-3-1 The number of formal parameters is packed with a bias of 
2 in location RA+5bB, i-e- VFD 1S/EDD2B, Mfi/^n^ - The 
function name is entered in the symbol table at ordinal 
one with type set to IIB and the Fr Ur FP r ASF and ENT 
bits set to 1- The function is implicitly typed unless 
the explicit type appears in ATYPE -CRA+51B3-. The order 
of appearance of the parameters? starting at Dr is placed 
in the RB bits- Identical code is generated as for a 
subroutine with parameters -Csee S-EJ- 

In addition? the line image* 

USE DATA- 
VALUE. BSS IB 

for single word functions or: 

VALUE. BSS 2B 

for two word functions is issued- DPFUN expects SELIST 
-CRA+3EB]- and ELAST -CRA+mBl- to point to the E-list for 
the statement. For Version E the START, length allocated 
in DPFUN is added to STARTA- 

5.M DPBDA. 

5-^.l liihen a name appears on the block data card {otherwise 
BLKDAT- is used! it is entered in the symbol table at 
ordinal one with type set to IIB and the ASF and ENT 
bits set to 0- The following line image is sent to the 
COnPASS f i le: 

IDENT ^block data name^ 

DPBDA expects SELIST -[RA+3EB> and ELAST -CRA+mB> to hold 
the beginning and ending addresses of the E-list for the 
statement - 

5-5 DPEXT- 

5-5-1 DPEXT expects the E-list pointers SELIST ■CRA+3EB3- and 

ELAST -CRA+mBJ to be set- Each name appearing is entered 
into the symbol table if not already there with the EXT 
bit set to 1- 
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DPDin 

Dim -CRA+17B> holds the auxiliary table address of the 
first -Cbits 3D-^7]- and last -Cbits 0~17> dimension list 
entries or will be zero if none- The dimensional infor- 
mation is held in two words: 



word 1 



BASE 



Ifi 



BIAS 



Ifl 



NEXT 






la 



word E 



NS 


P 

ArBrC 


C 


B 


A 



Ifi Ifl Ifl 



where: 



N£XT - auxiliary table address of next dimension list 
entry, or zero for the last one. BASEr BIAS are defined 
in Section E-llr the ECJUIVALENCE processor- 

A =_the first constant dimension or the symbol table 
ordinal of the formal parameter that is the adjustable 
dimension. 

B. = same as A for the second dimension- 

X = the total number of memory locations needed to hold 
the constant array or possibly a constant third dimen- 
sion if either A or B were adjustable or the symbol 
table ordinal of the third dimension if adjustable. 
PArBrC set to D or 1 corresponding to the Ar Br C 
fields are constant or adjustable respect ively- 

liS. = the number of subscripts, 1, 2, or 3- A symbol 
table entry is made for the name if not already there - 

The index into the dimension list starting at zero is 
entered into the DlflP bits of the symbol table for the 
dimensioned name- The D bit is set. The index is increased 
by E and placed in DIHORD which is an entry point in DPDII1. 
DPDin expects SELIST {RA + 3EB> and ELAST €RA + mB} to be set 
upon entry. 
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S.7 DPCOn. 

5-7-1 com €RA+3EB> holds the auxiliary table address of the 
first -Cbits 3D-47> and last -Cbits D-173- common list 
entries or will be zero for no COnnON statements. The 
first appearance of a block name requires two words in 
the common 1 ist- 



word 1 



word E 



BLOCK NAriE 



4E 



NEXT 



Ifi 






EBL 


N 


NTB 1 



la 



16 



ifi 



where: 



BLOCK NANE = left a(|ljusted blank filled display code 
of the block name- 

NEXT = auxiliary table address of next block name or 
zero for last- 

0. = block name common list ordinal r starting with 1 
with a maximum of 77 octal - 

EBL = class range when the block is involved in 
equ ivalencing or zero if not- 

N. = the number of names that appeared with this mention 
of the block. 

NTB = auxiliary table address of the same type entry 
for the next mention of the block- Each ^subsequent 
mention of the block name will require only the word 
E entry- Each block member requires one word and they 
follow the word E entry sequentially. 






DTO 


ORDINAL 


NEXT 



Ifi 



Ifl 



la 



DTO = distance from block origin to origin of this 
namer set only if equ ivalencing involved- 
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ORDIINtAL = symbol table ordinal of block n 



ame 



JiEXI - auxiliary table address of next common list 
entry- 

A symbol table entry is made for the name if not already 

o^r^'ru u, \''^ \^ ^^^' ^""'^ ^'^^"^ ^^^^'^"OW the BC bit is 
set. The block ordinal number is placed in the RB bits. 

5. a DPTYP. 



S.fi.l 



A symbol table entry is made for the names that appear 
unless already made. The type is set to the explicit tvoe 

s?on^^'?nfIrmati^ ^^ the statement cont^^n^i^me^ 
s I onal information, dimension list entries ar^ made as 
aescribed m S.b. If the explicit type changes' an array 
from one word to two word elements, the total size field 
lO IS doubled. SELIST and ELAST, the E-list pointers 
are expected to be set upon entry. miners, 

S.T I>PE(3U. 

^■^■^ location^of^h^ maintained to hold two pointers, one the 
location of the first equivalence group information in 
the auxi lary table and another the last group. The first 

avanIbirio;'?-'°"'''.^'" ^"?V.^^ ^^^^ °'^^- The next 
in AUXFND Ira^^^St '\the auxiliary table is maintained 
m AUXEND -CRA+ISB}. The first word of each grouo 
information holds: ^ «h 

bits Mfi-MT, EDDm where m is the number of names in the 
equivalence group. For all names but the first in the 
group, the first word for the name only holds the bits 
u-17 information- = uioa, 

The second word for al j group names holds: 

bits D-17, the first subscript if any. 
bits ia-3Sr the second subscript if any. 
bits 3b-S3, the third subscript if any. 
bits S7-ST, D, 1, E, or 3 the number of subscripts 
that appeared with the name. 

J^^, ^^!;!fALENCE statement E-list is expected to start at 
^rLAST- .•- .^^^ ^-^^^ '^^^ parenthesis and continue to 
fooked^ for 'are -^ eno-of-statement . The syntax errors 
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1. group must be enclosed in parenthesis. 

E. any misplaced information- 

3. more than three subscripts. 

^. subscripts not integer constants. 

Uhen a syntax error occurs the group is ignored- 

SYHBOL is called and the name placed in the symbol table 
if not already there. The name is also implicitly typed 
if not already in the symbol table- 

CONVERT is called to transform the E-list form of the 
constant subscripts to binary form. 

5. ID DPCLOSE. 

S.lD-l If E(31 -CRA+SSBJ is non-zeror E(3UIV is called for 
equivalence list processing. 

If com -[RA+SDB]- is non-zero, the following C0I1PASS line 
images are. sent to the COMPASS file: 

USE Ab lock name^/ 

^member name^ OSS ^member length^ 

The ^member name^ 1 ine is repeated for each name in the 
block unless equ ivalencing is involved, in which case 
only the 

^origin member name^ BSS ^extended block length^ 

line is sent to the COflPASS file. 

For ECS common blocks a USE/^bjock name^/ is sent to the 
COMPASS filer followed by the ECS declared variable and/or 
array names prefixed by a decimal point and BSS storage 
in octal, i.e., . ^name^ BSS ^name length B^. After 
storage is allocated, a USE DATA is issued, followed by: 

^name^ VFD bD/. ^name'^' 

for each ECS declared name. 

The dimension list is now moved to consecutive locations 
starting at PHECTL+RBUFF. BSS storage is issued for 
arrays if no COJIMON or E(3UIVALENCING has already forced 
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storage to be allocated for the array- DINl is changed to 
hold in the length of the dimension list in bits 3D-ST and 
PHECTL+RBUFF in bits 0-17- 

S-ID.E For Version S the name of and storage allocated for each 
common block is saved in ORGTAB in the following form: 

. 17_ D 

I N I L 1 

ST Ifi 

where: 

N = common block name left justified with blank fill- 

L = common block lengthr in binary- 

After the last common block entry in ORGTAB r a word of 
zeros is stored. The total length of DATA-- created 
through BSS is preserved in location DATAAA- 

5.11 E(3UIV. 

S-ll.l The table required by the algorithm {called GFTABLE> is 
formed in the auxiliary table starting at the current 
location of AUXEND -tRA+lSBl- Two words are needed for 
each distinct name in a class. Two passes are required. 
One to define the classes and the second to determine 
the base and calculate the bias values- 

During pass one the two words hold: 

word oner D-17r the address of the GFTABLE of the next 
class member or zero for last class member- 

ia-3Sr Hr the distance needed below the root- 

3b-S3r H''r the distance needed above the root. 

word twor D-17r word B address of the symbol table 
entry for the class name- 

lfi-35r Rr the signed distance to the connective mode 
of the tree- 

3t.-H7r Sr the GFTABLE ordinal of the connective mode 
entry - 



C A 138- 1 REV 10-67 



CONTROL DATA CORPORATION • COMPUTER EQUIPMENT GROUP 
^ DIVISION 



DOCUMENT CLASS 



ins PAr,F NH BM.lb 



PRODUCT NAME FORTRAN Extended Version E.D 



3PC0a MACHINE SERIES bH/bS/blDDD 



PRODUCT MODEL NO ^^^-^J^ - MACHINE SERIES 



After the classes are established a pass is made using 
the GFTABLE to assign relative addresses to the class 
members- After this pass the changes to the two words 
are- 
word two, ia-3Sr a-CE>r the length from zero needed 
to hold the name- 
In addition, for all root entries, word one changes are- 
word one, lfi-3S, the range of the class- 

3b-53, the GFTABLE address of the next class root 
entry or zero for the last class- 

Each class is now searched for the class base which is the 
member with the largest value of a-CE> or for the same value 
of a-CE> the first mentioned member-^ The bias for all non- 
base members is now calculated -C a-tE> member > and placed 
in word S, 16-35- 

When no common is involved, all that remains is to make 
the base and bias entries in the DIMLIST entries for all 
non-base members, and also to set the U and E bits in the 
symbol table for non-base members- The range is stored 
in bits 3b-53 of word E of the base DlflLIST ^ntry- If the 
base is a variable, the S bit is set in the symbol table 
base entry- Uhen common is involved, the class members arB 
searched to make sure no more than one member has been 
declared in common- The distance between the origin of 
the common block and the block members is calculated and 
stored in bits 3b-S3 of the COHLIST entry for the block 
member- A DIMLIST entry is made for the variables in the 
block- The total range of the class, max -[block range, 
distance -Ccommon origin! + local class range>, is stored 
in bits 3b-53 of the first word E of the COMLIST block 
entry- The base and bias entries are made for the block 
members, and the local equivalence class members have an 
additional bias due to common added to their bias and 
stored in DIMLIST- The DlflLIST areas effected are word 
1 bits lfi-3S, the bias, and bits 3b-53, the symbol table 
ordinal of the class Ipase- 

liihen a common block has already been biased, it is only 
necessary to calculate the class range and base and bias 
for the local class members- The process is repeated for 
all equivalence classes, then control is returned to COH 
in DPCLOSE. 
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If any diagnostic situations occur the class is skipped and 
the next class is processed- 

Fields modified for class base^ 

Uhen no common storage is involvedr the class range is 
placed in word I of the DinilST entry for the base- If 
the base is a simple variabler the S bit in word B of 
the symbol table is turned on- When common is involved 
the class range is held in word E of the block informa- 
tion in COnLIST- 

Fields modified for non-base class members^ 

The symbol table orjdinal of the class base and the 
member bias are held in word 1 of the DIHLIST entry 
for the class member- The E and U bits in word A of 
the symbol table are turned on- 

Formats 

DiriLIST- Used to hold dimensional information as well as 
base and bias information when the name is a non-base 
member of an equivalence class- A two word entry is used- 



35 



Ifi 



Uord 1 



1 


ORDINAL 


BIAS 


NEXT 



S3 



3b 



17 



ORDINAL = ordinal of base symbol table entry 



BIAS 
NEXT 



= equivalence class member- 
= address of next DlflLIST entry r or zero 
for last DinLIST entry- 



sb-s^ 



35 la 



Uord E 



ND 



] 



5^-57'' 



-'53 



Sb-' 



''17 



ND = Dr Ir 2r or 3r the number of dimensions- 

P = D, Ir E| 3r Hr Sr br or 7r corresponding 
to Cf Br A- The bits are set when Cr Br 
A are adjustable dimensions- 
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CrBrA = the symbol table ordinal of the dummy 

arguments that are the adjustable dimen- 
sions or- the binary form of the con- 
stant for constant dimensions for Br Ar 
C the total number of storage units needed 
fop the array- 
Dim Is at RA+17Bf and is zero for no dimensions 
op: 





m 




3D 






1 


FIRST 




LAST 1 












17 D 



FIRST = addpess of fipst DIflLIST entpy. 
LAST = addpess of last DIULIST entpy- 

At the completion of Phase 1 the DIflLIST entries 
are moved to consecutive locations and DIHl = 



r 


N 




FIRST 



H7 3D 



17 



FIRST = addpess of DIflLIST 
N = length of DIflLIST- 



COHLIST- Used to hold COHHON block infopmation as well as 
the equivalence class pange when a block numbep is also an 
equivalence class membep- The fipst mention of the block 
pequipes two wopds= 



ST 



la 



Uopd 1 



BLOCK 



NEXT 



17 



D 



BLOCK = left adjustedr blank filledr display code 
of the block name- 

NEXT = COflLIST addpess of wopd 1 of the next block 
name op zepo fop last block name- 
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Word E 



ST 


SH 




3S 




Ifi 




1 « 


EBL 


N 


NTB 






S3 3t 








17 D 



= the block name COMLIST ordinal r must be in 
the range 1 through 77. 

EBL = The equivalence class range when one of the 
block members is also an equivalence class 
member- 

N = the number of names that appeared in the 
COnnON statement with this mention of the 
block name. 

NTB = address in COflLIST of the word 2 entry for the 

next mention of the same block namer or zero for 
last mention. 

Each block member requires one word- 

35 Ifi 



1 


DTO 


ORDINAL 


NEXT 



53 



3b 



17 



DTO = the distance to block ordinal r only set 
when one block member is also an equiva- 
lence class member. 

ORDINAL = symbol table ordinal of the block member- 

NEXT = COriLIST address of next block member entry 
or zero for last member entry. 

com is at RA+EOB and is zero for no COfinON blocks or: 



H7 



3D 



FIRST 



LAST 



Zl 



17 D 



FIRST = address of first word 1 block entry 
LAST = address of last word 1 block entry- 
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E(3LIST- Used to hold equivalence group information for 
processing as part of the termination of Phase 1- Each 
name of each group requires two words - 



Word 1 



5T 



Mfi 



35 



Ifi 



20Dm 



NEXT 



UOR 



DB I 



jj r 



EDDm 

NEXT 
lilORDB 



with m the number names in the group r this 
appears only with the first name of the 
group - 

Ei3LIST address of word 1 for the next group 
and will be zero for the last group- 

symbol table address of word B of the groyp 
name- 



Uord E 



3S 



la 



NS 


^3 


^a 


^x 



ST-S7 S3 



3b 



17 



D 



NS = Or Ir Er OP 3f the number of subscripts that 
appeared with the group name- 



S-j, = the first ssubscript if any 
Sp = the second subscript if an^ 
S-, » the third subscript if any 



GFTABLE. During equivalence processing two words for each 
distinct class name are used to hold information necessary 
to the processing- During class information time the two 
words hold: 



Uord 1 






S3 



3b 3S 



Ifi 17 
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H = the distance needed below the class root- 

H = the distance needed above the class root- 

A = the GFTABLE address of word 1 of the next class 
member or zero for last class member- 



Word E 



rr-i 



53 3b 35 



Ifi 17 D 



S = the GFTABLE ordinal of the connective mode 
entry - 

R = the signed distance to the connective mode- 

B = the address of word B of the symbol table entry 
for the class name- 

After the classes are establishedr relative addresses are 
assigned to class membersr at which time word E holds- 



Word E 



s 


a-CEl 


B 



53 



3b 35 



Ifi 17 



a-CEJ = the length from zero needed to hold the name 



At this time all root entries word 1 hold- 



Word 1 
-Croot only> 





NEXTR 


RANGE 


B 



S3 



3b 35 



Ifi 17 D 



NEXTR = GFTABLE address of word 1 entry for next 
class root on zero for last class- 

RANGE = the class ranger the number of storage 
units needed to hold the class- 
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The new information is used to find the class base and then 
the class member bias values which is held in word E. 



Word E 



BIAS 



53 



3b 35 



Ifi 17 






BIAS = the number of storage units added to the 

■Clr Ir 1> element of the base to reference 
the -Clr Ir 1> element of the non-base member - 



fi.D Method 
fi.l General 

Basic list processing techniques are used to 1 ink the 
several lists. The head of each list -CCOMl, Dim, E(21> 
is held in the RA aPBa of the compiler and holds pointers 
to the first and last entry of the list. Each entry of 
the list holds a pointer to the next member of the list 
and a D pointer signifies the last entry of the list. This 
process allows each list to grow subject only to the total 
working area available and not be bounded by any preassigned 
fixed size per table- 

fi.E Equivalencing algorithm. The algorithm used is due to 
Bernard A. Galler and Hichael J- Fisherr ^An Improved 
Equivalence Algorithm^, Communications of the ACUr 
Volume 7/Number 5/riayr nb^f pages 301-3D3 and ^In 
Defense of the Equivalence Algorithm^, Communications 
of the ACn, Volume 7/Number 6/Augustr nb^r page SDb. 
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GFTABLE. During equivalrncf; processing two uords tor rach di.'^tinct 
class name are' used to hold Information necessary to the processing, 
During class formation time the tvjo words hold: 
Word 1 



H 



H 



53 36 35 13 17 

II = the distance needed belo\7 the class root. 

H = the distance needed above the class root. 

A = the GF t:\BLE address of word 1 of the nc::t class 
member or zero for last class raembr::. 



Word 2 



R 



53 36 35 18 17 

S = the GFHYBLi" ordinal of the connective mode entr; 

R = the signed distance to the connective mode. 

3 = the address of word B of the symbol table entry 
for the class name. 



After t: 






le c ia s s e ! 
at which 



are established: rclativ. addresses are as 
tirae word 2 hold'-: 
vJord 2 



C -; rrr- p 



Fs 



6(E) 



JJ 







36 35 13 17 

a(F,) = the length from zero needed to hold the name. 

At this time all root entries word 1 hold: 

Word 1 
(root only) 



NEXTR 



I 



36 



"35 ~ " 10"' ~ 17 



NEXTR = GFTABLE address of word 1 entry for next class 
root or zero for last class. 
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RAJ'IGE = the clacr range, the number of storage units 

needed to hold the class. 

The neu inforiration is used to find the class base and th^^n the class 

member bias values which is held in uord 2. 





s 


BL\S 


B 




53 


36 


35 18 


17 






BL\S = the number of storage units added to the (1, 1, 1) 

element of the base to reference the (1, 1, 1) clement 
of the non-bare raember . 



.0 lETHOD 

, 1 Genera 1 

Basic list processing techniques are used to link the several lists. 
The head of each list (COiU , DUil , KQl) is held in the RA area of the 
corapiler and holds pointers to the first and last entrj^ of the list. 
Each entry of the list holds a pointer to the next member of the list 
and a pointer signifies the last entry of the list. This process 
allows each list to grow subject only to the total working area 
available and not be bounded by any preassigncd fixed size per table. 



.2 Equivalencing algorithm. Tlie algorithm used is due to Bernard A. 

Caller and Michael J. Fisher, "An Improved Equivalence Algorithm', 
Communications of the ACII, Volume 7 /Number 5/ l-fey, 1964; pages 
301-303 and "In Defense of the Equivalence Algorithm' , Communications 
of the ACM, Volume 7/ Numbbr 3/ August, 1964, page 506. 
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PHICTL 

1 .0 Genera] 

1.1 PHICTL is the controlling routine for all non-executable statements. 
All Phase 1 memory pointers are initialized in this routine. 

2.0 Usages 

2.1 Entry Point names 

2.1.1 PHICTL. This is the initial entry point to Phase 1 from the 0.0 overlay. 
The memory pointers (see paragraph k.O) are initialized and a call is made 
to SCANNER to obtain the first source statement. 

2.1.2 PHISCAN. This entry point is used by all Phase 1 processors to return 
control. 

2.1.3 PROGRTN. This entry point is r.eferenced by DPPROG to return to PH1CT2 
after processing the PROGRAM card. 

2.2 Calling sequences. All calls to the processors are made with an EQ. jump, 
except FORMAT which is entered via a return jump. 

2.3 Processing Flow Description. 

Control is entered through PHICTL at which time the necessary points (see 
paragraph 4.0) are initialized. A call to SCANNER is made to obtain the 
first source card. If this card is a legitimate header card processing 
continues normally. If the first card is an end-of-record, a call is made 
to load COMPASS, if neither a dummy header card is manufactured. The source 
interpretation of this card is: 

PROGRAM START. (INPUT, OUTPUT) 

DPROG is then called to process the card and normal processing resumes. 

3.0 Diagnostics Produced 

Error number 10 which is fatal to execution, 

HEADER CARD NOT FIRST CARD 

4.0 Environment 

4.1 SYMEND location 13B contains the field length -1 (first word address of 

symbol table) 

4.2 SYMl location 12B, initially set to field length -1 (last word address 

of symbol table) 
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^.5 


DIM! 


k,e 


EQ.1 


k.i 


C0M1 


k,B 


FX 



4.3 AUXEND location 15B, initially set to PH1CTL, contains the first word 
address (fwa) of the auxiliary table. 

kA SUBREF location 168, initially set to zero. 

location 17B, initially set to zero (pointer to fwa of the dimension 
table) 

location '^SB Initial W set to zero (pointer to the fwa of the 
equivalence table) 

location 20B, initially set to zero (pointer to the fwa of the 
common table) , 

location kOB, Initially set to zero (contains the number of errors 
encountered during a compilation). 

if, 9 FC location 4lB, initially set to zero (set to non-zero if any fatal 
to compilation errors are encountered). 

k.\Q PROGRAM location 56B, initially set to zero. 

5.0 Remarks 

Two routines exist for generating I/O files within the compiler; one Iq 
PSICTL and the other In PS2CTL. Each routine is tailored to the specific 
type of I/O in each pass of the compiler. In PHICTL, a return jump to the 
Pass 1 I/O routine is stored into the appropriate locations In FTN. 
These locations are PLUGl , and PLUG2 (see paragraph 2.1.12 in FTNSIO task 
description). 
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PASS E - COnPILING TECHNI(3UE 



The method used for code selection in the FORTRAN Extended compi- 
ler can best be explained with an example. Consider the following 
FORTRAN source statements^ 



IF {ATAG -LT. B^^B> CALL COMET 

PSI=-CB + ACT -[N>> mi^E+RHOmSIGIIA -CN> 

K=N + K 

^TAB -[N> = XTAB -CIl/RHO+PSI 

TABE -CErE'^K>=PSI+ATAN -[RHO> 



Statements within the bracket constitute a flow block or sequence. 
Initial lyr these statements are analyzed and converted to a regis- 
ter free notation called R-list which would appear as- 



R, t~ B 



R2V- 


N 


K3. 


ACT-lrR^ 


^ = 


Rj.R- 


''s = 


N-CR4> 


H = 


R5-R5 


R7<- 


N 


Rg<- 


SIGHA-lrR-p 


Rc^ <. 


■RHO 


^1D = 


Rfi^Rc^ 



1 - ^y*^ia 

2 = N {R,,> 
^- N 

5 = "^la^^m 



^<— XTAB-lrR^^ 
fl<_RHO 



Rjc, - Rp/Rifi 

R^pj^-PSI 



'^El " ^EU"^? 
R22 = '^"^'^21^ 



r\ p -n '=*- IM 

R22 -^^TAB-lrRg3 



■[N€Rj> indicates the normalization of the result of a floating add 
or subtracts left arrows are loads and right arrows are stores. > 



CA -3 8- 1 REV iC-67 



CONTROL DATA CORPORATION . COMPUTER EQUIPMENT GROUP 
DIVISION 

DOCUMENT CLASS |^— - , ^ , ■ ■ " ^^^^ ^^ ^^^ 

FORTRAN Extended 



PRODUCT NAME „ LU/Lq/LLQD 

PRODUCT MODEL N0._4Pkik ^ MACHINE SERIES b4/b5/bbUU _ 

The generated R-list is then scanned and common suboperat ions 
are. eleminated resulting in the squeezed R-list. 

Rl^.-B RID = Rfi^RT Rl7e- XTAB-lrRlb 

R2^-^,M Rll = Rb + RID Rn = RIT/R-^^ 

p^ li-ATT-LRP Rl? = N-TRlll REl = RIE + Rl^ 

RH = Ri ^ R3 R12->PSI R2E = N-rREi> 

R5 = N{RH> Rl4<r K R2E -^i^TAB-lrRE 

Rb = R5«R5 RIS = RS + R14 

Rfi'^=^SIGnA-lrRE RIS -^K 
R'^^RHO Rlb^e-I 
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From the squeezed list a PERT-like networkr the following depend- 
ency treer is formed showing the precedence of operations. 
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The numbers within the circles at the nodes are keyed to the R-list 
on page 2. The time in machine cycles required for each operation 
is known. From this information, the latest time at which each 
operation must begin in order to finish executing the network in the 
minimum amount of time is calculated. This is done assuming no con- 
flicts of any kind and parallel instruction issue as well as ex- 
ecution. These times called priorities, are the numbers shown next 
to each circle; in a PERT sense they correspond to negative late 
start times with the network being completed at time zero. Code is 
generated beginning with the highest priority entry in the squeezed 
R-list noting which function unit is used and for how long. For all 
later instructions it is required that the preceding operations have 
been issued and there are no function unit or register conflicts; for 
this purpose, a picture of the ^status of all registers and function 
units must be maintained. Using this approach, the code shown on the 
next page produced resulting in the indicated overlap of operations. 
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Function Units 



Load/Store 
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PRE 

1.0 General Information 

PRE is the main controlling routine for PASS 2. 

1.1 PRE Functions. 

a. Call the macro expanders (MACROE, PRODB, PRODE, PROIXFN) . 

b. Expand all R-list into three-word form and define the sequence. 

c. Put out inactive labels, formal parameter names, variable 
dimension storage and the END line to COMPASS. 

d. Call the optimizers (COPY, SQUEEZE, PURGE, BUILDDT, OPTA), 

e. Accumulate APLIST entries and call APLISTP. 

f . Issue BSS storage for statement, DO, and optimizing temporary 
storage, 

2.0 The only entry point for PRE is PRE. 

2.1 A jump to PRE causes COMPASS code generation for all R-list on 
the file. 



2.1.1 Calling Sequence: 

JP 

a. API 
APLAST 

b . VARl 
VARLAST 

c. MACORG 

d . FFLAG 

e . PROGRAM 

2.1.2 Processing Flow 



PRE 



address of end of symbol table (SYMEND) 

SYMEND - 10 OB 

EQU to lowest significant macro number 
in MACROX 

=0 for standard mode 

contains transfer address, if main program 



After reading in a fixed number of v^ords at a time from the R- 
list file, each positive entry with a positive opcode is expanded 
into 3-word form. The descriptor ST field of each is examined 
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to detect one of the following cases: 

a. If ST=7, a macro ordinal switch determines which of the 
macro expanders to call. A PRODE call terminates the 
sequence after the 60 end jump. 

b. If ST=0, the entry is considered "normal R-list" and is 
added to the sequence at PS2CTL by a call to ADDTOSQ. 

c. If ST=l-6, the entry is directed to a jump table, where the 
following are detected: 

1. Sequence terminators are: DO end jump, entry state- 
ment, active label, and unconditional jumps. 

They cause generation of an end of sequence entry (100) , 
Normally, PROSEQ is called for code generation, IIov;ever, 
in a well-behaved DO, sequences are allowed to accumulate 
before this call, 

2. APLIST entries are added to the list by ADDTOAP, 

3. The end of R-list entry triggers PASS 2 closing (CL0SE2), 
If VARDIM is present, it is coded at this tim.e, 

3.0 Diagnostics Produced 

3.1 Fatal to compilation 

INSUFFICIENT MEMORY. 

THE STATEMENT AT (or AROUND) THIS LINE IS TOO COMPLEX FOR 

THIS COMPILER. PLEASE SIMPLIFV IT. 

3.2 Fatal to execution: none. 

3.3 Informative 

MORE MEMORY WOULD HAVE RESULTED IN BETTER OPTIMIZATION, 
4.0 Environment 

MACWRDS - local to READL. Set by macro expanders to the 
number of words placed in MACBUF. 

FWAWORK - local to PRE. Must contain current lowest unused 
work storage address, 

LWAWORK - EQU VARLAST, Must contain current highest unused 
work storage address. 
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WELLBE - Set by DO processor to 1 if a well-behaved DO loop 
is in process; else zero. 

5.0 Structure: PRE Subroutines. 

5 . 1 READRL 

5,1.1 READRL reads in one word at a time from MACBUF, or, if empty, 
from. NORl- 

a. A negative opcode indicates a macro reference. The entire 
reference is read in and placed at MACREF/RLIST. 

b. A positive opcode indicates a single entry. An additional 
read is made to pick up the second word of all type III 
entries. The descriptor is obtained from the local descript- 
or table. The entry" is passed back to PRE in the following 
cells: 

TWAl - R-list descriptor. (This cell is set to -0 when 
a macro reference is sensed) . 

TWA2 = First word of the entry, 

TT^AS = Second word if type III; else +0. 

5.2 ADDTOSQ 

5.2.1 ADDTOSQ adds one R-list entry at a time to the accumulated 

sequence: first word, second word, descriptor. If PRE sets 
the sequence-terminating flag, an end of sequence and an end 
of statement are generated after the word which was added. 

5.3 PROSEQ '" 

5.3,1 PROSEQ sets up the calls to COPY, SQUEEZE, PURGE and OPTA, 

indicating exactly which' portion of R-list to code. Normally, 
the entire sequence is taken as a unit. If a sequence consists 
of only one entry, PROSEQ calls POST directly, bypassing the 
optimizers. When coding the VARDTM sequence, a call to SQZVARD 
is inserted after SQUEEZE. This allows elimination of redundant 
stores, 

COPY, BUILDDT or OPTA may return with X6 set negative, indicating 
failure to perform the usual functions. PROSEQ then cuts the 
sequence in half and calls all routines as usual. If failure 
repeats, the cutting down continues down to failure on the 
smallest divisible portion, one statement (if VARDIM, the code 
between two stores) . This portion is attempted once again, 
skipping the squeezing process. If this proves unsuccessful, 
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processing terminates with a fatal diagnostic indicating either 
memory limitations or statement complexity as the cause. 

5 . 4 ADDTOAP 

ADDTOAP adds one entry at a time to the list at API, omitting the 
descriptor and setting HIGHORD equal to the highest ordinal so 
far encountered. If the lOOB locations allocated this area are 
insufficient, VARDIM is pushed back lOOB locations. 

5.5 VARCLOS 

5.5.1 PRE calls VARCLOS if there is VARDIM code present when the end 
of R-list entry is detected. VARCLOS flips the VARDIM R-list 
and sets the NORl buffer pointers to this area. READRL and 
ADDTOSQ are called alternately to get this R-list into the 
usual 3-word format at the usual sequence area. PROSEQ is then 
called for code generation, 

5.6 SQZVARD 

5.6.1 SQVARD scans the descriptor list at FWADNEW to locate "live" 

stores (KILL bit = 0) , and compares RI fields to find redundancies. 
The special symbol ] VD is appended to the II field of all stores. 

]VD "ordinal" BSS IB 

is put out to COMPASS for one store of a particular RI field 
value. 

]VD "ordinal" BSS OB 

is put out for all other stroes of that RI value. Setting the 
descriptor KILL bit for these stores assures that they will be 
purged from the R-list. 

Each JVD label is defined relative to the CODE, relocation 
base and this definition is maintained in working storage, 

5.7 NFPUNT 

5.7.1 NFPUNT sets PUNTFLG=1, which will cause CL0SF2 to put out the 
non-fatal memory diagnostic. (3.1) 

5.7.2 PUNT sends out the fatal memory diagnostic (3.1) and the END 
line, and exits to LDCOM, 

5.7.3 OPTPUNT send out the fatal diagnostic resulting from statement 
complexity (3.2). The R-list is scanned for the nearest end of 
statement. If it contains no card number, the scan continues 
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for a substitute. If no number is found, the cell CARDCT contains 
the last one detected by PRE. The octal card number is converted 
to display code and incorporated into the message. 

5.8 CL0SE2 

5.8.1 CL0SE2 takes care of PASS 2 cleanup. It calls APLISTP to process 
the accumulated APLIST and sends out the informative memory 
diagnostic, if applicable. The substitution list for each formal 
parameter name is terminated by a DATA OB, 

The [AP and ] VD definition tables are moved to just below the 
GL table. The ST., DO., and OT. BSS storage is issued for 
statement, DO, and optimizing temporary storage. 

The program or subprogram terminating END line is issued and if 
the "R" option is selected CL0SE2 exits to LDPIIl. Otherwise 
the FTNX assembler is called. Upon return from, the assembler 
CL0SE2 exits to LDPHl. 

6 . Formats 

6.1 The R-list Descriptor 

59 58 57 56-53 52-49 48-47 46-42 

LD I SR JP Fl i F2 *; TY-1 I FT 
29 28 /I ^5 8 7 6 



JD , RS 



DO i FE SZ 



1 


40 


39-30 




K 


IG 


USES ' 




5-3 




2 1 





ST 




KL SO 


CM 



LD * set on long and short loads. 

SR - set on long and short stores, including register store. 

JP - set on all jumps 

Fl - function unit used. 

F2 - second possible function unit, = Fl if only one possiJDle. 

TY-l- type (I-IV) . 

FT - 6600 function time, = lOB for loads, 12B for stores. 
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K 

IG 

USES 

JK 

RS 

DO 

FE 

SZ 

ST 

KL 



Unit 

Branch 

Broolean 

Shift 

Add (Integer) 

Add (Floating) 

Multiply #1 

Multiply #2 

Divide 

Increment #1 

Increment #2 



Indicator 

1 

2 

3 

4 

5 

6 

7 
10 
11 
12 



set if hardward instruction includes no k field. 

used by DOPRE. 

set by BUILDDT^ used by OPT. 

set if hardware instruction includes jk field. 

subsequent register store bit. Used in OPT. 

this area is used by DOPRE. 

set for jumps and stores 

set for 30 bit instruction. 

DOST = 1, APLIST = 2, unconditional jump = 3, label = 4, 
end of R-list = 5, entry = 6. 

initially = 0, set by SQUEEZE and SQZVARD when instruct- 
ion killed. 



set for squeezable instructions, 
set if operands commutative. 



SQ 
CM 
6,2 Flag words 

6.2.1 In PRE (for PROSEQ) 

VARFLAG = 0, set ot 1 at VARDIM time. 

6.2.2 In READRL 

MACWRDS = 0, set to number or words placed in MACBUF, 
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6.2.3 In ADDTOSQ 

MACREF (EQU RLIST) LWA+1 of parameter words. 

6.2.4 In ADDTOAP (for APLISTP) 
APLAST - LWA, APLIST+1. 
In PROSEO 

NORLIST - number of entries to process. 

FI-JASEQ - FI'JA of R-list to process external to PROSEQ. 

LASTR - first word of last single entry sequence encountered, 

LASLBL - if LASTR = label, LASLBL = LASTR. 

6.2.6 In SQZVARD (for PROSEQ) 

LENGTH - number of cells in redundant VARDIM store code list 
for COMPASS. 

STORBUF ~ FWA of redundant store list. 
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APLISTE 

1.0 APLISTE - Aplist Expander is a part of Pass 2. 

1.1 Converts the APLIST to card images and places them into 
the COMPASS file. 

1.2 Outputs a SUB macro reference for any formal parameters 
that were not referenced in the subprogram and maintains 
the length of the relocation base associated with each 
formal parameter. 

2.0 APLISTP 

2.0.1 APLISTP processes the accumulated APLIST and outputs it to 
the COMPASS file. 

2.0.2 APLISTP is entered by a return jump from CL0SE2 and exits 
through its entry point. If there is sufficient room to 
process the APLIST, at least as much working storage as 
there is APLIST, it exits to PUNT. 

2,0.3 The specified APLIST is rebuilt and grouped so that each 
list is contiguous in memory and in the proper order in 
which they should appear. These grouped lists are then 
examined and any that can be eliminated and combined into 
another are. The list is then converted to COMPASS line 
images and placed in the COMPASS file, 

3,0 No diagnostics are produced. 

4.0 The following cells are referenced and are expected to 
contain the indicated values. 

4.1 API. The address of the first entry in the APLIST. 

4.2 APLAST. The address pf the last entry in the APLIST, 

4.3 HIGHORD. The APLIST ordinal of the largest APLIST, 

4.4 FWAWORK. First word address of the working storage. 

4.5 SYMl. Start of the symbol table. 

4.6 PGM, The program/subprogram indicator, 

4.7 SUBREF, Flag that is non-zero if the ADDSUB code has been 

put out, 

4.8 S,NEC, Flag set if it is necessary to issue at least one 

word of ST, storage. 
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4.9 AOSUBO All referenced for the ADDSUB coding. 
CMPSPR 

CMPSPS . 

ADDSUBN 

CLSPOST 

4.10 WRWDS2 is called to transfer the converted APLIST to the 
compass file. 

5.0 The APLIST processing is divided into three phases. The 
format of the table built in the processing is under 6.0. 

5.1 First, the jumbled APJ^IST is grouped so members of each 
group appear in contiguous memory cells in the proper 

J ^ rpj^j^g j^g done in the following manner. 

5.1.1 The present APLIST number that is being grouped is set to 
one. 

5.1.2 If the present APLIST niimber is greater than the highest 
APLIST number (HIGHORD) the grouping of the APLIST is 
complete • 

5.1.3 Otherwise, the entire APLIST as it appears is searched and 
each entry that has the same number as the present APLIST 
number is combined into one word and placed in the grouped 
APLIST. The grouped lists start at FWAWORK and grow toward 
APLAST. 

5.1.4 After all entries in a group have been extracted from the 
jumbled APLIST, an entry is made in the GAPL giving the 
FI'JA and LWA of this group. This table starts at API and 
grows toward APLAST. 

5.1.5 The present APLIST number is bumped by one and processing 
continues at 5.1.2. 

5 2 The grouped APLISTs are then examined to see if it is 

possible to eliminate any of them. This is done by com- 
paring two lists (a primary and a secondary) at a time. 
If it is found that we hit the end of either list before 
finding a non-equal entry, the group that we hit the end 
of can be eliminated. In this case the following is done: 

5.2.1 The GAPL entry for the group which is to be eliminated is 
set to minus 1. 

5 2.2 In the last examined entry of the non-eliminated group a 
GN (Group Number) is placed in the upper 12 bits. If it 
has a GN already, it is used rather than generating a 
new one. 



C A 138- 1 REV 10-67 



CONTROL DATA CORPORATION . COMPUTER EQUIPMENT GROUP 
DIVISION 

DOCUMENT CLASS ^^ , PAGE NO. ^^'"^ 



PRODUCT NAMF FORTRAN Extended Version 2.0 



PRODUCT MODEL NO. ^l^COS ^ MACHINE SERIES- 64/65/6600 

5.2.3 The APLIST number of the eliminated group is combined with 
this GN and added to the OUT table (starts at end of GAPL - 
grows towards FWAWORK) . This table is used when translating 
the APLIST to COMPASS line images. 

5.2.4 If the eliminated group was considered the first or prime 
group, its grouped APLIST is searched for any non-zero GN 
fields. If any are found, the OUT table is searched for 
each such GN and this GN in the OUT table is then replaced 
by the new GN. When translating to COMPASS, a non-zero 
entry in the GN field of an APLIST entry says, "Before this 
entry is translated to a COMPASS line image, the APLIST num- 
bers that are linked to this GN in the OUT table must be 
placed in the temporary COMPASS file first." 

5.2.5 This is continued until all APLIST groups have been 
compared, 

5.3 The list is then translated into COMPASS line images. 

5.3.1 An entry is picked from the GAPL to find parameters for a 
list that is to be translated to compass line images. Nega- 
tive entries are ignored and a zero entry indicates the end 
of the GAPL. 

5.3.2 When a usable GAPL entry is found, the number of this list 
is placed in the temporary COMPASS file as [APn, BSS 
where n is the APLIST number. 

5.3.3 The actual list is then output to the temporary COMPASS 
file. At selected times during this transfer, the available 
core is checked. If it is running short, the temporary 
COMPASS lines that have been formed this far are transferred 
and the pointers are reset. Each member of an APLIST is 
transformed in the following manner: 

5.3.3.1 If there is a non-zero GN field, the OUT table is searched. 
Each entry in the OUT table that has this GN also contains 
an APLIST number of an eliminated that should be output to 
the temporary COMPASS file before this APLIST entry is 
processed, 

5.3.3.2 Then the I field is examined. It can indicate either a 
statement temporary, a variable, or it can be an indication 
of non-standard return. Default goes to b. 

a) Statement temporary, (1=1) the Hi field is converted to 
display code, suffixed with a period and prefixed with 
the letters ST and added to the temporary COMPASS file. 
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b) Non-standard returns, (1=7) places a VFD 60/0 in the 
temporary COMPASS file. This is done so that substi* 
tution of actual parameter addresses at execution time 
terminates before any non-standard return addresses 
are substituted. 

c) Symbols, (1=0) the symbol is read from the symbol 
table. If it is a formal parameter, a flag is set 
saying it is necessary to output a substitution macro 
reference. The symbol along with any constant add in 
(CAfield) is placed in the temporary COMPASS tile 
followed by a SUB macro reference if necessary. 

5 , 4 Example : 

Consider a subprogram as follows: 
SUBROUTINE X (A,B,C) 
DIMENSION A (50) 
CALL T (A(40), B, C+1, 24) 
CALL S (Xll, Y, A) 
CALL G (Y, A) 
END 

APLIST would be placed in the COMPASS file in the following 
format: 



[APl.BSS 





VFD 


60/A+47B 


SUB 


A,47B 


VFD 


60/B 


SUB 


B 


VFD 


60/STl. 


VFD 


60/CON.+nB 


VFD 


60/0 



(Statement Temporary) 
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6,0 



6.2 



[AP2. BSS 

VFD 60/X11 

[APS. BSS 

VFD 60/y 

VFD 60/A 

SUB A 

VFD 60/0 

TABLE FORMATS 

APLIST INPUT 

APLAST 











12 



18 



API. 



2nnn 



CA 



12 



18 






HI 



14 



16 



NO 



word 2 of 
APLIST entry 



word 1 of 
APLIST entry 



nnn is the number of cells back from the present 
location in the jumbled APLIST that contains the 
next member of this APLIST (nnn=0 indicates the end 
of a particular APLIST) , 

NO, the APLIST group that this entry belongs to. 
CA, I, HI, have the usual meaning. 
GROUPED APLIST 

12 18 12 18 



FWAWORK 



GN 



CA 



HI 



(GN initially zero) 



V 

APLAST 
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6,3 GAPL, Grouped APLIST parameters list. 
APLAST 

24 18 18 
API. 



FWA LWA 



FWA first word address of this group, 
LWA. last word address of this group, 

6,4 OUT Out Table 

24 18 18 



ON GN 



GAPL 
API, 

GN is a group number 

ON is the number (output number) of an APLIST group 

that has been eliminated, 

6.5 CMPSTR, contains the first word address of the temporary 

COMPASS file. 

6.6 APNAME, contains name of last symbol if it was a formal 

parameter. 

6.7 APCA, CA field of last symbol output if it was a formal 

parameter. 
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1-D (General Information 

1.1 Task Description 

The second pass DO pnocesso 
macro referencesr standard 
and all R-list instructions 
loop of a DO nest provided 
section fi.E>. R-list instr 
DO I oops r reference standan 
ialize the control variable 
generated by considering th 
all code in the DO loop is 
register assignments where 

E-D ENTRY POINTS 



r examines 
index funct 

generated 
the loop is 
actions are 
d index fun 

when neces 
e optimum u 
altered to 
poss ible- 



DO begin and DO end 
ion macro references 
within the innermost 
well behaved -Csee 
generated to count 
ctionsf and to mater- 
sary - The R- I i st is 
se of B registers and 
take advantage of B 



S.l PRODB 

2-1-1 PRODB is referenced by PRE when a DO begin R-list macro is 

encountered in the R-list buffer- PRODB determines the mode 
by examining FFLAG from the low memory communications region 
If the compiler is in the first level of optimization moder 
HACROE is called to generate loop counting R-list from the 
DO begin pseudo R-list. If the compiler is in standard 
moder flags are set for, ensuing calls to PROIXFN and PRODE- 

E-l-E The calling sequence to PRODB is a return jump to PRODB-' 
Flags and addresses needed are- 

FFLAG - D if standardr non-zero if first level optim- 

i zat ion 
riACREF {RLIST> - address of the DO begin R-list macro 

in memory 
FUAUORK - address of the working buffer where R-list 
items may be stored- Overflow is checked 
against VARLAST- 

S-E PROIXFN 

E-E-l PROIXFN is referenced by PRE when pseudo R-list for a stan- 
dard index function is encountered in the R-list buffer- 
PROIXFN breaks the index function into a table of terms and 
either preserves this table for PRODE by replacing part of 
the pseudo R-list -Cstandard> or generates the R-list to 
compute and reference the standard index function -Cfirst 
level optimization!- 
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E.2.2 



E.3 



S.3.1 



Ths calling sequence to PROIXFN is a return jump to PROIXFN 
It is expected that th^ following variables in the commun- 
ications region will be properly set^ 

(lACREF -CRLIST> - address of the DO begin pseudo R-list 

macro memory 
VARLAST - address of the next available call in the 

VARDIN buffer 
FUAWORK - address of the working buffer where R-list 



items may be stored 
against VARLAST. 



Overflow is checked 



PRODE 



PRODE is referenced by PRE when a DO end R-list macro is 
encountered in the R-list buffer- For an ill-behaved loop 
-[no optimizing attempted} HACROE is called to generate the 
instructions for the bottom of a DO loop given the DO end 
R-list macro. If the compiler is in standard mode and the 
well-behaved flag is setr then a series of ten scans or 
phases of optimization is executed. These scans and their 
functions are- 



I. 



Scan all R-1 i 
R-l ist macros 
cut ion time B 
set R-l ist in 
for standard 
information i 
A table -Csee 
I inked togeth 
index functio 



St between the DO begin and the DO end 
selecting candidates for available exe^ 
registers from among the loadr store and 
struct ions and the pseudo R-list macros 
index functions. Scan I compiles candidate 
n two word entries and places them in the 
section b.D - FORMATS}. A table items are 
er on the basis of type- constant r addressr 
n or variable increment -Csee section fi.D>. 



II 



III 



Scan the A table computing the cost in instruction par- 
cels if a B register is not assigned this candidate. 
Assuming that the lowest number of parcels used gener- 
ates the most efficient object coder B registers are 
assigned to the candidates having the largest cost. 
Scan II computes this cost for all constant r address and 
increment entries in the A tabler marking each as to _ 
type and as a candidate. In each index function chain 
the member which appears in the largest number of 
instruction sequences is given a cost and marked as a 
candidate; the differences between the candidate and 
other group member? are filed as candi dates - 

Scan the A table and assign the B registers by genera- 
ting a B table of up to seven entries. Registers are 
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V. 



VI. 



assigned by largest cost until the A table is exhausted 
or the B table is full- If a B register is assigned 
to a constant, the constant chain is searched and 
wherever possible constants are marked to use the sum 
or difference of presently assigned B registers. If 
a B register is assigned to an address, the address 
Cham IS scanned and the differences between the can- 
didate and other addresses are filed as candidates. 

IV. Scan the B table and decide from register assignments 
which one of IE methods should be employed to count 
the DO loop. The decision is based primarily upon the 
contents of the B registers. -CSee section fi.D for 
loop counting methods.! 

Scan the B table and mark the candidates in A with the 
register {or registers! that have been assigned to them. 

Scan the B table for A assignments. If the A table 
entry is a constant, address or difference type can- 
didate set up the R-list instructions to load this 
register at the top of the DO loop. 

VII. Scan the A table for increments and index functions 
generating the initializing R-list instructions to 
pre-compute variable increments and to initialize and 
increment index functions. 

VIII. Generate the DO loop counting code selected by Scan IV. 
R-list instructions are generated to initialize and 
increment the loop count and, if necessary, the con- 
trol variable. The IE methods of counting are shown 
in section fi.D. 

IX. Scan all R-list between the DO begin and DO end R-list 
macros creating R-list references to B registers when 
applicable. The general R-list given by pass I will 
be tailored to the B register assignments made by pre- 
vious scans and wjll replace the general R-Iist passed 
on by PRE. The pseudo R-list index function macros 
will be expanded into the proper sequence of instru<j- 
tions generated for double precision and complex arrays. 

X. Separates top of the loop R-list from end of the lopp 
R-list and inserts the body of the loop. This is done 
by moving the TOP-END buffer just below VARDIN, putting 
the referencing R-list just below this. Top of the 
loop instructions are then extracted and moved to the 
beginning of the R-list buffer where the DO begin 
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macro was. The body of the loop followsr then the end 
of the loop instructions- "^Ignore^ op codes are 
squeezed out and any remaining negative op codes cause 
generation of normal R-list to replace them- 

E.3.E The calling sequence to PRODE is a return jump to PRODE. 
Addresses needed are- 

riACREF {R-listl - address of the DO begin R-list macro 

I n memo py 
VARLAST - address of the next available cell in the 

VARDin buffer 
FWAWORK - address of the working buffer where R-list 

items may be stored. Overflow is checked 

against VARLAST. 

3.D Diagnostics 

3. I None 

M.u Environment 

^ . I Not appl i cable 

S.D Structure 

5.1 CANON 

5.1.1 CANON generates and orders the table of index function 

terms -CT} given the standard index function pseudo R-list 
macro produced by ARITH in pass one of the compiler. Each 
index function may have as many as five terms dependent 
upon the combination of variables and constants used in the 
subscript. CANON uses TERH and FILET. 

5.E TERM 

5.E.I TERfl unpacks a single subscript. If the subscript contains 
a variabler exit is made to the second word following the 
return jump to TERHr otherwise the first- 

5.3 FILET 

5.3.1 FILET makes the actual entry of a term in Tr combines terms 
with like variablesr orders the table in decreasing order 
using all bO bits as key for the sort and leaves the address 
of the next available location in the cell TN. 

5.H IXFN 
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S.H.I IXFN is called whenever a standard index function is 

encountered in the R~list. IXFN then searches the integer 
definitions following the DO end macro to see if the sub- 
script uses any of the variables that are redefined within 
the loop. If sor and it includes the control variabler 
the control variable is marked for materialization. If 
notf and the index function has not appeared beforer it 
is filed as a candidate in the A table- 

5.S LINKA-NSRTA 

S.S.I LINKA files candidates for B registers in the A tabler if 
not already there and links them to other candidates of 
the same type -Caddressj. constantr etc.>. If a candidate 
has already been filedr then the sequence in which it 
appears is noted for use in determining the value of hav- 
ing a B register assigned. 

S.S-2 NSRTA files a candidate in the A table without linking and 
without checking for prior entry. 

S.b REF 

S.b.l Given the OCr CA, SO, Rlr H2r RF, I, Hi fieldsr REF files 
a three word type three R-list item in the R-list buffer 
area of memory. This K-list item will generate a refer- 
ence to an array element at object time. If the arra)/ is 
double precisionr a second type three R-list item will be 
placed in the buffer. 

S.7 ilRKIXFN 

S.7.1 MRKIXFN chains through all index function entries in the 
A table by group r selecting the most popular member of 
each group {appearance in most sequences^- and marking that 
member as a candidate fop a B register and as a member of 
a group. A MRKIXFN then calls FORMDIF. 

S.fi FORnDIF 

S-fi.l FORFIDIF inspects address and index function groups and if 
a difference is found between the inspected item and the 
head of a group does the following- 

1> If the difference is constant the difference is filed 

in the constant chain. 
E> If the difference is symbolic then an item is filed 

/-on+- <=i ! n i i^a Kni-h «aviT»l^<^ I c ai^H t-ho r-oi^S''" ai^+" rl J -F-FonorK-CJ 

-C i f any>. 
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5.^ EVALCON 

S-T-l EVALCON evaluates a constant entry in the A table placing 
the number of parcels saved by using a B register in the 
value field of the A entry. It also marks the entry as a 
candidate and as a constant - 

S-ID HRKCON 

5. ID. I HRKCON scans the linked constant candidates in the A table 
marking each as a candidate and constant and computing the 
cost in parcels if a B register is not assigned the can- 
didate. 

S.ll HRKADR 

S.I 1-1 HRKADR searches the address chain of the A table for the 
most popular candidate -Cused in most sequences> and then 
marks that entry as a candidate having a group and con- 
stant. The cost of not assigning a B register is stored 
in the value field of the candidate- 

S-IE IIRKINC 

S.lE.l riRKINC scans the linked increment entries in the A table 
marking each as a candidate and computing the cost of not 
having a B register. 

S.13 SRCHC 

5.13.1 SRCHC is called to determine if a constant; entry in the A 
table may be formed using constants already assigned to 
B registers. Given a constant which is the sum or differ- 
ence of assigned constantsr SRCHC chains through the con- 
stant chain for a candidate equal to it- If foundr the 
two are related by setting the appropriate bits in the REG, 
REGS and NEG fields in the A table entry found. 

S.m TOPB 

S.m.l Given a one or two word R-list item, TOPB adds a descriptor 
word and files a three word R-list item in the TOPEND buffer 
after insuring that the buffer won-'t overflow. 

5.15 ENPB 

5.15.1 Given a one or two word R-list item, ENDB adds a descriptor 
word and an end flag and files a three word R-list item in 
the TOPEND buffer after insuring that overflow won'*t occur. 
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5. 


1(3 




5. 


lb. 


1 


5. 


17 




s. 


17- 


1 


s. 


la 




s. 


la. 


I 


s. 


n 




s. 


M. 


I 



5. ED 
5. ED. 1 

5. El 
S.El. I 



S-EE 
5.EE. 



S.E3 
S.E3. I 

S.E4 



VARBl 

Given a one word R-list itemr VARBl stores it in the 
VARDin buffer. 

VARBE 

Given a two word R-list itemr VARBE stores it in the 
VARDin buffer. 

TDOUN 

TDOUN displaces the T table lower by one storage address- 

nOVETR 

nOVETR moves the T table Cthrough and including the first 
entry of all zeroes> to the last six words of the IE-word 
standard index function pseudo R-listr -Csee section b-E - 
the second table on the page.l 

nOVERT 

nOVERT moves the last six words of a standard index func- 
tion pseudo R-list it?m to the first six words of the T 
table* -CSee section b.E> 

GENT 

GENT generates the R-list to compute and reference a stan- 
dard index function. This code replaces the standard 
index function pseudo R-list produced by ARITH in pass one 
of the compiler. GENT calls GENVAR. 

GENVAR 

GENVAR generates the R-list to compute the variable part 
of an index function. This code appears at the loop top 
or point of reference depending on the index function. 
Non-variable computations appear at the program top. 
GENVAR cal Is SUHC 

sunc 

SUnC generates the R-list to add up the coefficients of a 
single written variable and places this code in the VARDIN 
buffer. sunc calls COEFF. 

COEFF 
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S-EH-l COEFF generates the R-Iist to multiply the factors of a 

coefficient and stores the generated R-list in the VARDIH 
buffer- 

5.ES DOONE 

S-ES.l DOONE generates a reference to a subscripted quantity 

based on the contents of the B registers- The generated 
R-list replaces the standard index function pseudo R-Iist- 

S.Eb GENALL 

S-Eb-l GENALL moves R-list down in memory and generates the R-list 
to compute and reference redefined index functions- 
GENALL calls GENT- 

S.S7 riATC 

S.E7.1 Uhen the control variable must be materialized -[updated in 
memory]- during the course of a DO loop, HATC makes entries 
in the A table to allow the loop parameters to compete for 
B registers. 

S-Efi nCOST 

S-Efi.l nCOST determines the minimum cost for DO loop counting 

considering all possible situations and available methods- 

S-ET CCOST 

S-E^-1 CCOST determines the cost of counting a DO loop by using 
the upper 1 imit- 

S-3D LOADX 

S.3D.1 Given an A table iternr LOADX generates R-list instructions 
to load an X register with the item. 

5-31 LOADY 

5-31-1 Given a loop parameterr LOADY generates R-list instruc- 
tions to load a register R with it. 

5-3E STOREX 

5-3E.1 Uhen counting a DO loop in memory and the count has been 

updated in an X registerr STOREX generates R-list instruc- 
tions to store the X register in memory - 
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5.33 LOADBHC 

5-33.1 Generates R-list to load the first limit and subtract the 
second limit of the DO statement. LOADBflC calls LOADY. 

5.3M COUNTR 

5.3M.1 Generates the R-list to compute -CC-B>/D for counting the 
DO loop. Cal Is CONCNT. 

5.35 COUNTNR 

5.35.1 Generates the R-list to compute -CB-O/D for counting the 
DO loop in the negative direction. Call CONCNT. 

5. 3b CONTOP 

5.3b. 1 Generates R-list instructions to multiply R by _ an integer 
constant in the most efficient manner using shift and add 
conbinations. R-list is stored in the TOP-END buffer. 

5.37 Generates R-list instructions to multiply R by an integer 
constant in the most efficient manner using shift and add 
combinations where R is a variable division or product 
of variable dimensions. R-list is stored in the VARDIil 
buffer- 

5.3fi CONCNT 

5.3fi.l Determines whether the DO may be counted by a constant or 
notr i.e.r whether €B-C>/D is constant. 

5.3T DIVCON 

5.3=^.1 Generates R-list to compute -CB-O/D optimally by checking 
constants -Cif any> and shifting or no division at all 
where possible. 

5.HD LnCHK 

5.MD.1 LNCHK checks DO loop limits to recognize one trip loops 
and sets flags for section VIII to bypass the generation 
of loop counting code. 

5.m REDINC 
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S.m.I REDINC checks for index functions with same increment hav- 
ing these conditions^ 

1. Not involved in counting the loop. 

E- Not requiring two B registers to form index function. 
3. Both index functions in B registers- 

H- One incrementing instruction has already been genera- 
ted. 

Uhen conditions are. metr REDING generates code to compute 
difference of index functions which wiii replace index 
function in higher numbered B register. All references to 
index functionsr other than the baser must then be genera- 
ted as a sum of the ^Dase index function and the difference 
register. At least one parcel per use is saved as the in- 
crementing instruction is eliminated. 

Example- 

GIVEN CODE ALTERED CODE 

SBI A SBl A 

SBS B SBE B 

SB? A+S SBE BS-Bl 

>AA SAl Bl SB? A+S 

BX? XI >AA SAI Bl 

SA? BE BX? XI 

SBl Bl+1 SA? Bl+BE 

SBS BE+1 SBI Bl+1 



GE B?,B1,>AA GE B?rBl,>AA 



S.HE INIDV 



INIDV generates the R-l ist to set an X register to the ini- 
tial value to be given the induction variable -[lower limit 
of the loop> and then generates the store instruction to 
materialize the variable in memory. 
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DOPRE is concerned with two levels of optimization: 

1} First level optimization where PRODB calls upon the 
MACRO expander -ClIACROE} to generate R-list for the 
top of a DO loop. PROIXFN generates R-list to process 
the standard index functions in a DO loop without bene- 
fit of B register optimization. PRODE calls upon 
riACROE to generate R-list for the bottom of the DO 
loop. 

2} Second level optimization results in PRODB and PROIXFN 
setting flags and addresses for PRODE to generate can- 
didates for B registers at execution time._ In add it ion r 
instructions generated within the loop during pass I 
by other processors are changed to take advantage of 
B register assignment at execution time. 

In first level optimization only the table of index func- 
tion terms ■£?> is generated. In second level optimization 
a table of candidates H:A> and a table of B register _ ass i gn- 
ments -CBJ is generated in addition to the table of index 
function terms -[T>. The A table is a variable length table 
with two words used for each entry. Candidates may come 
from constantsr incrementsr addressesr address differencesr 
or index functions- The T table is one word per entry and 
a maximum of six entries in the table- The last entry 
must always be zero. The B table is a fixed table of seven 
entriesr one word per entryr and each entry contains infor- 
mation related to the assignment of the corresponding B 
register- Thusr the third word of the B table designates 
how B3 was assigned to be used at execution time- Certain 
fields of both A and B have double usage and these fields 
will be noted- 

In addition to these tablesr section b-D will be concerned 
with the standard index function pseudo macro before and 
after the call to PROIXFN and the TOP-END buffer created 
by PRODE in the second level of optimization. 
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The tables and formats follow, 
b.l T TABLE ■[ INDEX FUNCTION TERMS > 

S^l 5/^ 24 23 22 21 



la 17 



"VT 



L - Set to 1 if VI is the loop control variable 

VI - Base-bias of variable involved in the term 

V2 - Set to 1 if the first dimension of the anray>H^ is 
adjustable 

V3 - Set to I if the second dimension of the array ^i is 
adjustable 

VH - The I pant -Ctable number! where C-CTJ is variable and 
the H-CBIAS> is found in the C field 

C - Constant multiplier for the variable part of the term 

B TABLE { B REGISTER ASSIGNMENTS > 

5=1 2=i ( 



VALUE/R 



ALOC 



VALUE - Savings in parcels made by the assignment of this B 
register 

R - After Scan V of PRODEr R is register number defined 
as that B register 

ALOC - Address of the A table entry for the candidate given 
this register ' 
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y,2 STANDARD INDEX FUNCTION PSEUDO R-LIST MACRO 

BEFORE PROIXFN 
ST ^7 3D 



OC 



NOT USED 



NWF 



CA 



NS 
57 



AjBlC 



S3 



NOT 
USED 



la lb IS 
TYPE ' 



RI 



IH OF THE ARRAY 



3S 



17 



nC OF FIRST SUBSCRIPT 



CA 



IH OF VARIABLE IN FIRST SUBSCRIPT 



AC OF FIRST SUBSCRIPT 



nC OF SECOND SUBSCRIPT 



CA 



IH OF VARIABLE IN SECOND SUBSCRIPT 



AC OF SECOND SUBSCRIPT 



nC OF THIRD SUBSCRIPT 



CA 



IH OF VARIABLE IN THIRD SUBSCRIPT 



AC OF THIRD SUBSCRIPT 



C A 1 3 8- ' RE ' 



CONTROL DATA CORPORATION . COMPUTER EQUIPMENT GROUP 
DIVISION 



DOCUMENT CLASS. 
PRODUCT NAME — 



PRODUCT MODEL NO. 



ins 



PAGE NO ^^ 2"^. m 



FORTRAN Extgndpd 



^Pblb 



MACHINE SERIES b4/b 5/bbDD 



ST 



OC 



m 



JU 



AFTER PF?OIXFN 
30 



17 is 



NUF 



CA NOT USED 
S3 . 3S 



9 f 



NOT ^ 
USEi) 



IH OF THE ARRAY 
17 



RI 



..„ .1 



NOT 
USED 



ADPSUB 



ACHAIN 



LSUB 



NOT 
USED 



ASUB 



AINC 



LINC 



FIRST DIMENSION OF THE ARRAY 



SECOND DiriENSION OF THE ARRAY 



T TABLE 
ENTRIES To - Tc 
-CSEET TABLE FORHATJ 



OCr Rlr CAr IH SPG described in R-list literature 



TYPE 

NS 

PABC 

Cr Br - 

nc 

AC 
ADPSUB 



- 3 bit type field as used in SYflTAB 

- number of subscripts 

- indicates adjustable cjimensions fop subscript 
Ir E or 3 respectively 

- constants or IH of variables for dimensions of 
subscripts 3r Eror 1 respectively 

- multiplicative constant in subscript 

- additive constant in subscript 

- if array if double length points to second A 
table item for this index function 



/-A 1 OQ. 1 
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ACHAIN - points to the A table item which heads the chain for 
this unique index function 

LSUB - points to previous unique index function in R-Iist 

ASUB - points to A table item for this index function 

AINC - points to A table item for this variable increment 

LINC - points to the previous index function with unique 
local terms 

NUF - number of words following as pant of this macro 
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b.3 



A TABLE "C CANDIDATES FOR B REGISTERS > 
FOR INDE!X FUNCTIONS 



WORD 1 



yORD E 



,ST 




St 


S3 SI 








^7 


E'=i 


i? 


c 


G 


I 









N 


D 








A 
N 


R 
P 


X 

A 


REG 


REGS 


N 
E 


L 
G 


i 
F 


VALUE/ADIFF 


iti^ 


LINK 


D 




D 










F 








H 




CA : 


MX 


RLOC 











FOR 


INCREMENTS 






C 


G 


I 









N 


D 








A 

H 


R 
P 


X 

A 


REG 


REGS 


N 
E 


L 
G 


i 
F 


VALUE/ADIFF 


SE(2 


LINK 


D 




D 










F 








NAME 


XM 


RLOC 













FOR CONSTANTS 






C 


G 


I 









N 


D 








A 
N 


R 
P 


X 

A 


REG 


REGS 


N 
E 


L 
G 


1 
F 


VALUE/ADIFF 


SE(2 


LINK 


D 




D 








1 


F 










THE bO BIT 


CONSTAN 


T 



FOR ADDRESSES 



REG 



REGS 



VALUE/ADIFF 



CA 



SE(3 



M 



LINK 



^ 



ADDRESS DIFFERENCES 



c 

K 

N 
D 


i 

R 
P 


I 
X 
A 
D 


REG 


REGS 



N 

E 
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H 



- the ordinal in the symbol table fop the variable 



CA - the constant addend op displacement of the variable 
i f any 

SEQ - a field of flags indicating which of IE possible 

sequences the candidate is used in. Sequences are 
indicated fpom pight to left 

LINK - address of next gpoup membep 

RLOC - addpess in the R-list fop the head of the linked 
entpies 

CAND - set to 1 if this entpy is a candidate fop a B pegis- 
tep 

GRP - set to 1 if this candidate is a membep of a gpoup 

IXAD - set to 1 fop addpess type candidates 

REG - numbep of the B peg i step assigned -Cif any> 

REGE - numbep of the second B peg i step assigned -Cif any> 

ONE - set to I if increment of index function is constant 

NEG - pelates B peg i steps used to fopm a sum -CDJ op diffep- 
ence -til 

DIFF - set to 1 if A item is diffepence of addpesses and 
cannot take advantage of SB B+B 

NAME - If H values of ppogpam tempopapy op loop tempopapy 

VALUE - cost in papce 1 s if this candidate is not given a B 
pegistep 

ADIFF - the addpess of the A table entpy cpeated as a diffep- 
ence with this A table entpy 



7-0 MACROS 



7-1 ADDRR - -CBUFr XRJ3- Genepates R-list to do an integep add of 
two X pegisteps -CR and XRJ3- IX-CR+l> = X-CXR J> + X-CR>. R-list 
fields are OCf RJr RKr RI found in lADDi XRJ, B7r B7+1 
pespect ively . R-list is stoped in an addpess detepmined fpom 
the index given as 3UF. The macro uses TYFEI, OUTBuF macpos 
and the subroutines TOPBt ENDBr VARBU VARBE. 
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7.E DEFBR - CBUFf XREiS> Defines the B register that will receive 
the information in the register specified by RI SB-CXRE6>=R- 
R-list fields are OC, SO, RI found in DEFINE, LOCKB+XREGr B7 
respectively- Type II R-list is stored in an address deter- 
mined from the index given as BUF- This macro uses macro 
OUTBUF and the subroutines TOPB, ENDB, VARBlr VARBE. 

7.3 DESBR - DEXBR -CBRlrKREr KR3> Sets the NEC, REG and REGE 
fields of the first word of an A table entry- Arguments are 

i-ini \/i-i-i vol , ,\^ I ^U. «.«^K<«MmA/-vvN-i- -> D i-i<-»^nire«+-air» l^r^lrltr\o Si fyrxo or* 

Dl\ 1 , Ar\C:, Al\3 Wri 1 <>.l t l Cl-'l «=i=»c:i lo Cl u i ci-yi^awtii ii~»«.ii^ *- -~..w -. 

zero, and X registers holding the two B registers assigned 
to be used as a sum or difference for generating a needed 
constant- The A table entry is located at L-CDESBR> or 
X-CDEXBRl- 

7.4 IflUL - Packs two integers given in XI, XS and does a double 
multiply with the result left in Xb. 

"^'-S INCRR - -CBUFl sets up an Ifl bit -Cshort> add of two B regis- 
ters storing the result back into one of the registers 
■CSB-CR-l> = B-CR-i> + B-lR>j-- R-iist fields used to generate 
type I R-list are OC, RJr RK, Rl which are given by SADD, 
B7r B7-lr B7-1. The R-list is stored in an address deter- 
mined from BUF- Uses TYPEI, OUTBUF macrosr TOPB, ENDB, VARBlr 
VARBE subroutines- 

7.L LOADADR - -CBUF, XIH, BCA> sets up the R-list for the load 
address instruction SA-CR> = -CIH + CA> R-list fields are OCt 
CA, Rlr I-Hl found in LOAD» BCA, B7, XIH respectively. The 
type III R-list is stored in an address determined from the 
index given as buf- This macro uses the macro OUTBUF and 
subroutines TOPB, ENDB, VARBlr VARBE- 

"?•"? JlSik^^"" ■CBUF> sets up R-list to multiply a register speci- 
f ied by R by an integer constant- Instructions are stored 
at an address determined from BUF- Uses macros SHIFT, PACK, 
nULT, OUTBUF and subroutines TOPB, ENDBr VARBlr VARBEr CONTOP, 
CONVAR. 

7.fl nULRR - -CBUFJ sets up the R-list to convert the integers in 
registers R and R-lr place in registers R+lr R-^E, and then 
does a double floating point multiply with the result ending 
in R+3- PX€R+1> R-lrBO 

PX-[R + S> R rBO 

DX-CR + 3> -CR+llM-CR + E} 

R-list fields are RKr Rlr OC, RKEr OCEr RJr RKB, RI3r 0C3 
given by R-lr R+lr PACKr Rr R+Er PACKr RI , r RIgr R+3r DHUL 
respectively. The generated R-list is stored in an address 
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determined from the index BUF- Calls macro OUTBUr and uses 
subrountines TOPB, ENDB, VARBU VARBE. 

7. ID SADRR - -CBUFr XRJ> sets up Type I R-Iist to do a short add 
of two registers with the result going to a third register- 
Fields needed are- RJr RKr Rlr OCr given by Rr XRJ, R+ 1 and 
SADD respectively- R-list storage address is determined from 
BUF- Calls on macros TYPEI, OUTBUF and subroutines TOPB, 
ENDBr VARBl, VARBE- 

7-11 SETRCON - -CBUFr BRI, XC0N3- generates R-list to set a regis- 
ter to a constant value- Fields needed are- IN r OCt RI 
given by XCONr SETII, BRI respectively. The type II R-list 
is stored at an address determined from BUF- SETRCON uses 
the macro OUTBUF and calls on subroutines TOPBr ENDBr VARBl r 
VARBa- 

7- IE SETADR - -CBUFr XIHr BCAr XRIr XRFr XHE> generates R-list to 
set a register to an address- Fields; needed are- CAr RFr 
IHr Rlr HEr OC given by BCAr XRFr XIHr XRIr XHEr SETHI 
respectively- The type III R-list is stored at an address 
determined from BUF- Uses the macro OUTBUF which in turn 
calls upon subroutines TOPBr ENDBr VARBl r VARBE- 

7-13 STORADR - -CBUFr XIHr BCA> generates type III R-list to set 
Ab or A7 to an address causing a corresponding store of Xb 
or X7 repsect i vely- Fields needed are IHr CAr OC given by 
XIHr BCAr STORE respectively. The generated R-Iist is stored 
in a buffer determined from the index BUF. STORADR uses 
the macro OUTBUF which uses subroutines TOPBr ENDBr VARBl r 
VARBE. 

7.m SRBMB - iBUFr XB 1 r XBE> sets up the R-list for the short sub- 
tract and stores the result into the R register 
-CSB-CR} = RBTAB + XBl - RBTAB-^XBE». R-list f iel doused to _g_e^^^^^ 
erate this type one R-list item are OCr RJr RKr RI given by 
SSUB ■Cb7>r RBTAB+XBE* RBTAB+XBE, R respectively. XB I , XBE 
are indices for the 5 table which contains the desxan^fcecl fi 
ttsat is^ assigned the ff register." "The gener is 

stored in an area determined from the argument BUF- This 
macrD uses ttie OUTBUF macro and TOPBV"Tl^Br"VMBTr VARBE sub 
routines. 

7.15 SRBPB - -CBUFr X B I , XBE > sets up the R-list for the ^hort add_ 

and" stores the result Thto THe R register 

■CSB-CRJ^= RBTAB+XBl ^ RBTAB«XBE. R-list fields used_tj) gener- 
*~at;e th is type one R- 1 i st item are OCr R J r RK V Rl' g i ven by 

SADMHbJr RBTAB + XBl, RBTAB + XBEr Fr respect I vely. XBlg XBS are. 
f ndrces for tKe B tab! e entry that cont a i ns the R ass i gned 
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7. lb 



7-17 



7. Ifi 
7. n 



7. ED 



7. El 



to B register XB 1 or XBE- The generated R-list is stored 
in an area determined from the argument BUF- This macro 
uses the OUTBUF macro and TOPBr ENDB, VARBl, VARBS subrou- 
t ines- 




SUBRR - -CBUFr XRJl integer subtract of two X registers 
-CR and XRJ> IX -CR+l> =' X-[XRJ> - X-[R>. R-list fields are 
OCf RJr RKr RI found in ISUBr XRJ? B7» B7+ I respect ively- 
R-list is stored in an address determined from the index 
given as BUF- This macro uses TYPEI and OUTBUF macros and 
the subroutines TOPB, ENDBr VARBl, VARBS- 

SUBXRR - -CBUF> same SU'BRR except IX-CR+l> = X-CR> - X4:R-1>. 

DIVRR - -CBUFJ integer .division of two registers 
X-CR+IJ- = X-[R-1}/X-[R>. R-list fields are OC, RJ, RKr RI 
given by IDIVr B7-lr B7r B7+1 respectively. R-list is 
stored in an address determined from the index given as 
BUF- This macro uses the macros TYPEI and OUTBUF which 
uses subroutines TOPBr ENDBr VARBl r VARBE- 

JUnP - -CBUFr BOCr BRIr BRF> generates the loop ending jump 
as type III R-list given OCr Rlr RF as BOCr BRIr BRF 
respectively and the IH of the label for the top of the DO 
is found in the DO-END pseudo R-list generated by pass I- 
The jump instruction is stored at an address determined 
from BUF. JUMP uses OUTBUF which uses TOPBr ENDBr VARBlr 
VARBE. 

TYPEI - -CB.UFr XRJ> generates a type I R-list instruction 
from the fields OCr RJr RKr RI given by B^r XRJr B7 and X3 
respectively. The generated R-list is stored at an address 
determined from BUF and this macro uses the macro OUTBUF 
which in turn uses subroutines TOPBr ENDBr VARBlr VARBE. 



7.E3 SHIFT 



-CBUFr XCOUl sets up R-list to do a shift transmit 

of R to R+ I and a constant shift left the number of places 
indicated by register *XCOU for R+ 1 - The resulting R-list 
is stored in memory as determined from BUF using the macro 
OUTBUF and subroutines TOPBr ENDBr VARBlr VARBE. 
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7. EM PACK - -CBUF> generates R-list to pack the exponent zero with 
the fraction R into a register R+l- Uses OUTBUF, TOPBr ENDBr 
VARBlr VARBE to put the R-list at an address determined from 
BUF. 

7-25 nULT - ■[BUF> generates R-list to do a double precision float- 
ing multiply of R and R-E leaving results in the register 
specified by R+l- Places instructions at address determined 
from BUF by using macro OUTBUF which uses subroutines TOPBr 
ENDBr VARBlr VARBE. 

7.Eb SADXRR - CBUFr XRJ> sets up type I R-list to do a short add 
of two registers with the result going to one of the regis- 
ters €SRi = Ri + XRJ>- Fields used are RJr RKr Rlr OCr given 
by Rr XRJr R and SADD respectively- R-list storage address 
is determined from BUF- Calls on MACRON'S TYPEIr OUTBUF and 
subroutines TOPBr ENDBr VARBlr VARBE- 

7-E7 XrilT - -CBUF> sets up type I R-list to transmit from an input 
register to an output register. Fields used are RJ and RI 
given by R and R+l respectively. R-list storage address 
determined from BUF- Calls on the macro OUTBUF and subrou- 
tines TOPBr ENDBr VARBlr VARBE- 

7.Efi ADDXRR - €BUFrXRJ> Generates R-list to do an integer add of 
two X registers -CR and XRJ> and put the result back into R. 
R-list fields are OC, RJr RKr RI found in lADDr XRJr B7r B7 
respectively- R-list is stored in an address determined from 
BUF. The macro uses TYPEIr OUTBUF macros and subroutines 
TOPBr ENDBr VARBlr and VARBE. 

7-ST SADZRR - -[BUFrXRJ> Generates R-list to set an X register to 
the value in a B register- XRJ is the R number for the B 
register and R is the X register number- Fields needed are 
RJr RI given by XRF and R. R-list storage determined from 
BUF- Calls on Macro OUTBUF and subroutines TOPBr ENDBr VARpi 
and VARBE. 

7-3D CONLS - IBUFrXCOUr XREGl, Generated R-1 i st to do a constant 

left shift of XREG the number of places specified by, regi ster 
XCOU- Operation code given by KLS and BUF determines R-list 
storage- Uses the macro OUTBUF and subroutines TOPBr ENDBr 
VARBl and VARBE- 

a.D DOPRE 
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fi. I Pr inciples 

Sample test cases using straightforward compilation techniques 
indicate that 5D^. or more of the running time of FORTRAN 
benchmark programs is spent inside innermost DO loopsr although 
they occupy under ID^ of program space. Thereforer reduction 
of the time spent in loopsr particularly inner loopsr is of the 
first importance. 

Ul/-\i.ici)»n- c»Tr\/-c3 +-1-10 •Htmcs npniifr»orl -Fnr" .a cKnn-h. lonn t<2 nno^'t*. I w 
ii^-'Vwcvc^i r «ia»ii'%-«s. wiiS wimC ■ cz-^f^ii >_^- .— ■ >.• w.. — • w ._ w^ ...» -^. ^.,^ ^ . ^ 

reduced by retaining it in the stackr it is important to reduce 
the space required within loops as well. To avoid special 
casesr DOPRE concerns itself with space reduction onlyr assum- 
ing that time reduction is usually a by-product - 

6-E Definition of Uell-behaved Loops 

Loops containing extended ranges r input-output statements r 
CALL''sr FUNCTION referencesr or calls or arithmetic statement 
functions which contain CALL-'s or FUNCTION referencesr or 
implicit subroutine callsr aPB not considered well-behaved and 
are not optimized for the following reasons^ 

a. The existence of an exit and return to the loop makes 
retaining results in registers throughout the loop imposs- 
ible; 

b. The existence of an unconditional jump in the loop makes 
retaining the entire loop in the stack impossible. 

c The computation outside the loopr which may be a consider- 
able proportion of the compute-time involvedr does not 
benefit from the loop optimization. 

d. The existence of most of the above situations creates 

implicit definition points which complicates the analysis- 

e- The existence of an extended range requires the use of 
program-wide temporaries. 

Current lyr a loop must meet three other requirements in order 
to be optimizable^ 

f. It must fit in memory. 

g. It must be an innermost loop. Outer loop optimization com- 
plicates the analysis cons i derably r but saves less execu- 
tion time and is less likely to produce in-stack operation 
than innermost optimization. 
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h. The increment must not be the control variable. This sit- 
uation is rare but when it exists it makes calculation of 
the increments of local index functions outside the loop 
impossible. 

6.3 Objectives of DOPRE 

DOPRE generates code 

a- to compute and reference all standard index functions 

b. to count DO loops i 

c. to materialize control variables where necessary 

d. to provide optimization features if requested 

PRE calls DOPRE when it encounters a DO begin or DO end macror 
or a standard index function pseudo-macro. 

If no optimization is requestedr DOPRE expands each macro and 
returns to PRE. Standard index functions are reordered to 
minimize the computations requiredr and computations involving 
adjustable dimensions ars* done at the program top. 

The code generated for DQ I=Br Cr D is^ 

B Constant B Variable 

Set R to B Load R with B 

Store R in I Transmit R to R 

Store R in I 

The code generated for DO end is^ 

D Constant D Variable 

Load Rj from I Load R. from I 

Rj + D to R^ or Load Rg from D 



Store R3 in I R. + Rg to R^ 

Store R3 in I 
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C Constant 

R3 - -CC+I> to RW 

NG RH L 



or 



C Variable 
Load R'4 from C 
RM-R3 to RS 
PL RS L 



form' an' R- 1 i St buffer containing the above macros and pseudo- 
macros and the expended R-iist items for an entire weii- 
behaved loop and ttie first sequence butsrde the loop. It 
analyses this information in detail r modifies itr and returns 
it in f inal -f-omr -to f4^£. 

The analys i s -pf^ov-ides the following broad features* 

1- Standard index functions which do not change in the loop 
■Lgloball are computed once outside the loop. 

E- Standard index functions which change in the loop only 

when the control varjable changes -Clocal> are initialized 
outside the loop and incremented within the loop. 

3. Variable increments pf local index functions are computed 
outside the loop. 

M. Standard index functions containing variables changed in 
the loop iredefinedJ are computed at the point of referece- 

5. The adjustable parts of all standard index functionsf 

local r global or red^finedr in a loop or outr are compu- 
ted at subprogram top. 

b. B registers are initialized at loop top with constantsr 
addresses r index functionsr and variable increments 
chosed to reduce space in the loop. 

7. Instructions which reference the sums and differences of 
B registers are used to reduce space further. 

The quantities loaded in B registers are selected to minimize 
the space required by the loopr in accordance with Section 1 
above - 

The following quantities are initially candidates for B regis- 
ters- 

1. Index functions none of whose variables are redefined in 
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the loop. 

2. Variable increments required for modifying index functions 
containing the current control variable- 

3. Addresses of variables in load and store instructions. 

M. Constants in Type II Set instructions. 

S. Loop limits for use ip materializing the control variable 
and/or counting the loop- 

a.M How Index Functions Are Cpmputed 

The general form of a standard index function is= 

DIMENSION A-CLrMrNl 

. . -A ial+dr bJ+er cK+fJ 

-CLrflr and N are each either constant or adjustable^ at br and 
c are positive integer constants^ dr er and f are signed inte- 
ger constants. Ir Jr and K are variables-> 

The above reference necessitates computing the address 

A + -[aI + d-l> + -[bJ + e-l> « L + -CcK + f-ll « L ^ n 

DOPRE reduces the subscript to a canonical form containing the 
f o I low ing items- 

1. The array namer e.g. A 

2. The constant addend CAr e.g-r d-1 in the example {assuming 
L & n are adjustable}. 

3. From zero to 5 additive terms r each containing from 1 to 3 
\/ar iables. 

Assuming all dimensions are adjustable and Ir Jr and K are 
differentr the terms in the example would be, air bJLr -Ce-I^Lr 
cKLMr and -Cf-ll Lll. 

Terms are sorted so that 

1. Index functions which look differentr but require the same 
computat ionsr are recognizedr e-g.r A-t2Ml+l> and D€I+1> 
where D is double length. 

2. Non-adjustable variables appearing twice require at most 
one mu 1 1 ip I icat ioHr e-g-r A'{2«Irl> yields A+-CL + 2>«^I + CAr 

not a + 2«i + l«i + ca; ^:ca = -l-13-. 
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DOPRE computes the constant part of the index function. It 
generates code at subprogram initialization to compute the 
adjustable part of the index function 

Multiplication by some integer constants is simulated using 
shifts and adds- The special cases identified are: 

1- Negative constant. An instruction BD-R to R 

is issued and positive multiplication proceeds. 

E. constant = 1- No generation 

3- constant = 3. 

Rl+Rl to RE- Rl+RE to R3 



H- 



b. 



7. 



constant = b 

Rl+Rl to RE. Then use code for 3. 
constant - ^n- 

Shift transmit and left shift n 
constant = 2^+^^- -CD. - .D 1 D- . -D ID. - .D> 

Shift transmitr left shift n-mr addr shift trans- 
mi tr left shift m 

constant =e'^-e"^ -CD. ■ .D 1 . . . ID. . .D> 

subtract instead of add 



fi-S Program flow 

yhen fast compilation is requested PRODBr PROIXFN, and 
PRODE merely generate R-list in line. Uhen standard com- 
pilation is requestedr most of DOPRE^'s work is done in 10 
sections of code within PRODE. Section I scans the R-list 
for the entire loop and forms a table of candidates. Sec- 
tion II computes the value of each candidate - the number 
of bits saved inside the loop by assigning it- to a B regis- 
ter. Section III assigns the most promising candidate to 
the 1st B register? recomputes values if they are alteredr 
assigns the next B register? etc until there are no more 
candidates or no more B registers. Section IV determines 
the most space-saving way of materializing the induction 
variable -C i f necessary > and counting the loop? and may alter 
B7 accordingly. Section V records the final assignments. 
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Sections VIr Vllr and VIII genenal^e code in another table toi 
load addresses and constants^ compute index functions and 
increments n and materialize and count r respectively- Sec- 
tion IX re-scans the R-list for the loopr changing refer- 
ences to refer to B registers- Section X merges the gener- 
ated code with the original R-list. Control returns to PRE- 

fi-b Evaluating Candidates 

As Section I forms the potential candidate 1 istr it notes in 
which sequences each candidate was neferencedr notes uses of 
B registers already present in the R-listr and groups index 
function and address capdi dates - 

Uhere Z is a candidate 

t h 
SE(3 -LZ}- = a bit pattern containing a bit in the n -jsi@®!ti0n 

if Z is referenced in the n sequence- 

L = the number of bits in SE(3 -tZ} 

DOPRE cannot tell what the final code will be^ it assumes 
that quantities in X registers are loaded only once per 
sequence in which used- 

Section II evaluates the candidates. The ^value^ of a can- 
didate is the difference between the number of bits required 
for instructions to load and/or reference it within the loop 
if it is not assigned a B registerr and the number required 
if it is assigned a B r^gister- 

a> Addresses in Load A and Store A Instructions 

All addresses become candidates- After an address is 
assigned a Br the differences between it and each other 
required address become candidates also- That isr if Y 
and Y + 1 are referencedr the code will be one of the 
fo I lowing: 

Number of Registers Assigned 



D I .. 1 E E 



set By to - Y. _. _„ JL+i- _ Y-- Y±U 

set Bp to - _ _ 1 1 

reference Y ref Y ref B. ref Y ref B| ref Bi-Bg 

reference Y+1 ref Y+1 ref Y+l ref B| ref Bj+Bg ref Bj 
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Differences are used because of the likelihood that constant 
differences -Cand possibly symbolic differences! may occur 
several times- In the ^bove example? the constant 1 may be 
referenced directly and may occur also as the difference of 
A and A+lr B and B+U C+ 1 and C+Er etc 

As can be seen from the above chart r the value of an address 
is iSLr and the value of a difference is also ISL- {Symbolic 
differences are not formed when either symbol is a formal 
parameter -J" 

b> Constants in Set X Instruct ionst as increments? as differ- 
ences? as loop limits- All constants are candidates -[nega- 
tive constants are filed in positive form>. Whenever a con- 
stant is assigned a B register? Section III scans the other 
B registers assignments for other constants and determines 
which? if any? useful constants may be formed as the sum or 
difference of assigned constants- Suppose the constants 
I ?2?3?4?S?b? ID and 5Q are required- Suppose also that B 
register assignments of constants are as fol lows= 



B3 I 

Bb 5D 

References to 5 are generated as B1+B3. References to 3 are 
generated as B1-B3. References to 2 are generated as B3+B3- 
Al though the assignment of? say? 3? 2? and SD would have been 
preferable -[because 1? 4? 5? and b can be formedl no attempt 
is made to assign the optimum constants - 

The value of a constant is 15L? since ^SXI Bl^ is IS bits 
shorter than? e-g-? ^SXl 4-^ 

c> Variable Increments required for modifying local index func- 
tions- Uith the index function in B2 the code required is: 

No B IB 

Instruction: SAl INC 

■[SB2 Xl-»-B2 or SXb Xl+B2> {SB2 B2-^Bl or SXb B2-^B13- 

Cost: 3D D 

Value: 3D 
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dJ Index Function 

All index functions with indentical variable parts comprise 
a ^group^r e.g-r X-CI + S>r and Y-tI>r are in the same group; 
except that each arra'^ which is a formal parameter has its 
own group- 

Index functions are grouped because costs may be reduced by 
using the same memory cell or B register for more than one 
of them; e.g.r if X-CI> is in BU Y{I> may be loaded as 
fol lows: 

SAl Y-X+Bl 

and this may minimize space when there aren-'t enough B regis- 
ters to go around- 
Formal parameter arrays have their own groups because refer- 
ences like Y-X+Bl would otherwise have to be computed at run 
time- 

The value -Cin bitsr within the loop> of an index function 
depends on how it is computed and referenced. 

There are six ways to compute/reference X-CI3- where Y-CI3- is 
also required- 



In Memory 

In B 

Share Memory 

Share B 
Difference Memory 

Difference B 



Outside Loop 
X+I to LTEMP 

X+I to BI 
Y+I to LTEMP 

Y+I to Bl 
Y+I to LTEMP 
X-Y to BE 

Y+I to Bl 
X-Y to BE 



Reference 

SAl LTEMP 
ref XI 

ref Bl 

SAl LTEMP 
ref X-Y+Xl 

ref X-Y+Bl 



SAl to LTEMP 
ref X1+B2 



ref Bl+Ba 
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The initial value of a group of index functions is the 
cost of having no B register for the group minus the cost 
of having one B register for the group- This is the 
same as the cost of loading the index function in each 
sequence in which any member of the group is referencedr 
or 3D« ** of bits in -CSEfl v-.-v SE(3n3-r plus incrementa- 
tion cost -[for local index functions! of MS- 

The differences between the candidate {the most- loaded 
npoun momhopT and each other member of the orou*^ also 
become candidates with values of 1 SL - 

fl-7 Assignment of B registers 

Section II performs the initial evaluation of candidates. 
Section III assigns the most valuable candidate to Blr re- 
evaluates as necessary and assigns the next highest candidate 
to BSf etc- r until there are no more B registers or no more 
candidates. The first time an address is assigned the dif- 
ferences with other addresses are filed. Each time a constant 
is assignedr combinations of it and previously assigned con- 
stants are generated. 

fl.a Loop Control Code and Hater ial izat ion 

Subroutine HATC following Section Ir and Sections IV and VIII 
select and generate the code to test at the bottom of the 
loop and to materialize the control variable if required. 

flATC files the loop limits as candidates if materialization 
is required. Section IV chooses the best code for material- 
ization and testing based on the assignments to B registers 
made in Section III- Section IV may alter assignments to pro- 
duce better code. 

Section VIII generates the materialization and testing code. 
The code produced is one of the following: 

SECOND LEVEL OF OPTiniZATION MODE LOOP COUNTING 
-[where the general form of the DO is DO SN I«pBrCrD> 



1. Count the loop in memory 
TOP 



-[-^>-^LTEnP 



END 

SAl LTEMP 
SXb Xl-1 
SAb LTEflP 
PL Xbr TOP 
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E. Count the index function to zero 

TOP END 

■C-mc+mb>->' Bi -C increment Bil 

GE BO, Bi, LABEL 

3- Count the index function up to mc -[multiplier times upper 
limit> 

TOP END 

■[index funct ion]--> B i {increment Bi> 

mc-yB7 GE B^, Bi, LABEL 

M- Count in B-, where D is a B register 

TOP END 

CB-O-^B-, SB-, B7+BD 

GE Bgr B-p, LABEL 

S. Count in memory where D is in a B register 

TOP END 

-[B-C-ll-^LTEHP SAl LTEIIP 

SXb XI+Bd 

SAb LTEnP 

HG Xbr LABEL 

b- Count in B-, where there is a 1 in a B register 

TOP END 

GE Bg, B-p, LABEL 
7- Count in memory wher^2 there is a 1 in a B register 

TOP END 

SAb LTEMP 

US Xk,- tAB^t - 
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Count the loop B-, 
TOP 



^ D -^ 



END 



GE B-p, BO, LABEL 



^- Test the control variable I with C loaded 

TOP END 

{load C> 
IXO Xc-Xi - 
PL XO, LABEL 
ID. Test the control variable I with C+ 1 loaded 

TOP END 

■[load C+l> 

IXO Xi-Xc-1 

NG XOr LABEL 

11- Test the control variable I where count -CO is mater- 
ial ized 



TOP 



END 
SXO Xi-C-l 

Cr 



3t 



XO, LABEL 



Test the control variable I where the address of count 
-CO is in a B register 



TOP 



END 
SAi Be 
IXO Xc-Xi 
PL XO, LABEL 
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a.T Generation 

Section V marks the final B register assignments in the A 
table- Section VI generates code at loop top to load 
addressesr constantsr and symbolic differences- 
Section VII generates code at loop top to initialize index 
function and variable increments of local index functionsr 
and code at loop end to increment local index functions- 
Section IX re-scans the original R-listr changing the refer- 
ences to reflect the B register assignments and generating 
adjustable computations in redefined index functions- Sec- 
tion X merges the loop top and loop end code with the R-list 
for the body of the loopr and generates code in-line to com- 
pute and reference redefined index functions. 



CONTROL DATA CORPORATION • COMPUTER EQUIPMENT GROUP 
: . DIVISION 

IMS. PAGE NO 30.1 



DOCUMENT CLASS 

PRODUCT MAMF FORTRAN Extended 

PRODUCT MODEL N0._ 



4P616 MACHINE SERIES 64/65/66QQ 

SQUEEZE 



1.0 General Information 

SQUEEZE resides in PASS2 as part of PRE. The primary function of 
SQUEEZE is to purge from a sequence superfluous loads and stores 
and redundant computation. 

2.0 Usage 

2.1 SQUEEZE 

2.1.1 Calling SQUEEZE will result in the indicated R-list being modified 
to the extent of indicating operations which are to be eliminated 
and modifying the remainder to compensate for their removal. 

2.1.2 Calling Sequence 

SQUEEZE is called by placing the num.ber of R-list entries in NORLIST 
and the first word address of the sequence in Fl^RLIST and the first 
word address of the descriptors in FVl\DESC, further the R-list sequence 
must be arranged as is done by COPY. All of these cells are set up 

by calling COPY. 

2.1.3 ProCv'^:Ssing 

The sequence is scanned for the definition of an RI. The subsequent 
R-list entries are scanned for definitions of a different RI, R', by an 
identical operation. If such a case is encountered, the operation de- 
fining RIl is marked for elimination by setting the KILL bit in the 
descriptor. Tlie R-list following thr definition of RI' is scanned 
for references to RI ' and these are replaced with references to RI. 

2.2 COPY 

2.2.1 COPY m.oves the specified sequence into the working storage area. In the 
process of moving, end of statement and end of sequence markers are 
eliminated and all of the remaining R-list entries are split apart so 
that all of the first words of the sequence are followed by all of the 
second words of sequence are followed by all of the descriptors. The 
working storage markers are adjusted to protect the sequence. 

2.2.2 Calling Sequence 

COPY is entered by a return jump with NORLIST containing the number of 
R-list entries in the sequence and FWARLIST containing the first xrord 
address of the sequence. If the operation failed due to lack of working 
storage XI will be negative on return, otherwise not. 
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2.2.3 Processing 

The original sequence ir- scanned and the number of executabl'^ R-LICT 
pHtricp lis calculated; from thip the beginning addrcr^n for rach of the 
three blocks if working Ptoiagcs is calculated. The move takes place 
and the xwrking storage limits modified. 

2.3 PURGE 

2.3.1 PURGE takes a sequence in GOPYed format and squeezes it in place re- 
moving all entries which have the KILL bit set in their descriptor. 

2.3.2 Calling Sequence 

PURGE is called by a return jump with NOllLirT conta;Va:r.r^ La- lam^rz of 
.l"lint entries in the sequence nnd FW:\RLIGT containing the. a-'drer? of 
the first uord of the sequence. These will be set up by SQUEEZE, 

2.3.3 Processing 

The operation is performed in two passes. The first pass squeezes each 
of the first, second and descriptor V7ord groups in place. The second 
pass moves the blocks next to one another. 

2 .4 REPL^CE 

2.4.1 Calling REPLi\CE will result in all R fields referring to the RI field of 
the just killed operation being modified to refer to the master RI. 

2.4.2 Calling Sequence 

REPLACE is called by a return jump with the folloiv?ing register settings: 

AO ~ first word address- of sequence -1 

X3 - first word of the killed entry 

X4 - second word of the killed entry 

B4 " first v?ord address of descriptor - 1 

B5 - master RI 

2.4.3 Processing 

Each entry in the R-list following the killed entry is scanned to see 
if it refers to the just killed RI. If such a R-field is encountered 
it is replaced with the master RI. 

3.0 Diagnostics Produced 

The COPY routine will set a flag before making a fail exit. On com- 
pletion of the subprogram this flag should be interrogated and the 
information diagnostic 'MORE rlElIORY VJOULD PRODUCE BETTER CODE' should 

be i.ssufrd. 
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4.0 Environment 

Fmi^ORK and Ll^I^lDRK must contain the limits of vjorking storage. 
FWAvJORK uill be increased By COPY and decreased by PURGE. The cell's 
are located in PRE. 

6.0 FOR]^Ii\TS 

Everything operated on is in standard R-list format except that it is 
rrshiif f led as described in the COPY description. 

7.0 Modification Facilities 

In COPY the end of statement and end of sequence operation codes are 
set-up with EQU's EOSTMT and SOSEQ respectively. 
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Task Description: OPT 
1-0 General Information 



1.1 



2.0 



E.l 
E-I. 1 



S. 1.3 



The function of OPT is to determine the order in which 
instructions are to be issued and to fix register assign- 
ments. The basic input to OPT is an R-list sequence and 
its ass.ociated dependency tree"-, the output is a series of 
calls to POSTr each call giving the next R-list entry and 
register assignments to be converted to COHPASS line images 
OPT is located in Pass E. 

Usages. OPT has one control entry pointr OPTAr and two 
information entry pointsr LASLBL and LASTR. 

Entry Point Name: OPTA 

Entry Point Function: PROSEiS calls OPT at the entry point 
OPTA to cause an R-list sequence and associated dependency 
tree to be converted to COHPASS line images with fixed 
register assignments and code ordering appropriate to the 
target computer. 

Calling Sequence and Returns: OPTA is entered by a return 
jump from PROSES?. On returnr if Xb is posit iver successful 
processing of the entire sequence has taken place. If Xb 
is negative? the attempt has been unsuccessfu 1 r no COHPASS 
output has been produced? and remedial action {currently 
sequence halving! must be taken. 



Processing Flow 
working eel 1 s a 
LASTRr which de 
vious sequencer 
transferred to 
R-l ist entry to 
are to be used, 
which updates a 
and cal Is POST 
I ine image. Th 
cont inues unt i I 
has been proces 
not produce cod 
If production w 
transfer the ge 
•CCOriPS> and exi 
version attempt 
PROSEfi with Xt 



Description: lilhen OPTA is entered? all 
re initialized according to the flag word? 
scribes the terminal entry in the last pre- 

and OPNPOST is called. Control is then 
the OPTB section which determines the next 
be processed and which? if any? registers 

This information is passed on to ISSUE 
11 counts? tables? and clocks as required 
to cause production of the desired COMPASS 
e cycle? OPTB to ISSUE to POST to OPTB? 
the last R-list entry in the sequence 
sed or until it is determined that OPT can- 
e successfully for the complete sequence. 
as successful? ISSUE will call CLSPOST to 
nsrated line images to the COMPASS file 
t to PR0SE(3 with Xb positive. If the con- 
was unsuccsssfu 1 r control is returned to 
neca"^ i ve. 



a.s 
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2.2.1 



2.3 



2.3.1 



3.0 
4.0 



5.0 
5.1 



Entry Point Function: LASLBL is a flag word containing the R-list 
word specifying the last label encountered. This is set ordinarily 
by OPT at CLSPOST time but will also be set by PROSEQ for a sequence 
consisting solely of a label. lASLBL is used by OPTA during the 
initialization process. 

Entry Point Name: lASTR 

Entry Point Function: LASTR is a flag word containing the first 
word of the R-list entry terminating the last sequence if it was 
successfully processed or a zero otherwise. This is set by OPT before 
return to PROSEQ and by PROSEQ for a single-entry sequence. LASTR is 
used by OPTA to determine whi,ch working cells must be initialized. 

Diagnostics: No diagnostics are produced by OPT. 

Environment: The following cells are required to be set up before 
OPT is called: 



Cell Name 



FWARLIS 



NORLIST 



FWATREE 



TREELNG 



Contents 

first woird address 
of R-list sequence 
being processed. 



Producing Processor 
COPY 



number of R-list entries PURGE 
in current sequence. 

first word address of BUILDDT 
the dependency tree. 

length of the dependency BUILDDT 
tree. 



In addition, OPT references all the 10 entry points in POST and the 
entry point NFPUNT in PRE. 

Structure: The three major areas of OPT are OPTA, OPTB, and ISSUE. 

OPTA 

OPTA performs two main functions which prepare the environment for 
OPTB and ISSUE: 

1) clearing out cells containing unwanted information left over 
from the last sequence processed. 

2) processing R-list defines and initializing flag words. 
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5.1.1 The contents of LASTR determine whether OPTA performs the clearing 
function. 

Clearing results when LASTR = zero, return jump, entry, label. 

The following cells are cleared: 

A-Register Contents 

X- Register Contents 

Register Availabilities (packed zeros) 

Scratch Registers 

Function Unit Availabilities 

CLOCK, PARCEL 

NXTSTOR, NXTLOAD 

X6AVAIL, X7AVAIL 

In addition the following cells are set: 

FCHAR = 45B (this forces upper for the first generated COMPASS 
instruction) 

ADR = 1 (this defines t|ie contents of AC to be R^l) 

5.1.2 OPNPOST is called for every sequence. NORLISTR, FINALR, TREETOP, 
TPRIME, IPOINT and SIZEFALT are initialized. 

Defines are processed by storing the RI field in the corresponding 
Register Contents Cell, packing the descriptor 'uses' field into the 
Register Availability word, removing the defined register from the 
scratch list, and calling PRUNE to remove the RI from the tree of un- 
processed R-list entries. 

The descriptors for the sequence are scanned to initialize CODSIZE 
(total parcel count) and NOSTORE (number of store instructions). X6 
and X7 are removed from the scratch register list if there are more 
than two stores, and X7 is removed if there are exactly two. 

The interword time, WRDTIME, is set to 1 if the target machine is the 
6400 or if in-stack timing is to be used on the 6600. This latter 
condition exists when CODSIZE 28 and the last entry in the sequence 
is a conditional branch to the most recently encountered label. Other- 
wise, WRDTIME=5. 

Exit is to OPTB at OPT. IB. 
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OPTB selects the next R-list entry to be processed and determines 
which registers are to be used. This information is transmitted 
to NOCODE if no C(MPASS code is to be produced or at one of the 
ISSUE entries. If no issuable entry can be found for the current 
time and parcel in the object machine, exit is made to ISSUEI with 
the pointer, IPOINT, negative to request remedial action by ASYNCH. 

n-PTTi BhaVi-R hv ficannine the deoendencv tree, starting at TPRIME, 
looking for the first entry which will fit at the current parcel 
and all of whose predecessors have already been issued, i. e., an 
R-list entry all of whose predecessor fields in the tree have been 
set to zero. Such an entry is said to be logically issuable (LI). 

Each LI entry is then checked to see if it is machine issuable (MI), 
i.e. to see if there is a function unit and uncommitted destination 
(result) register available ^t the current simulated clock time. 
(For 6400 code selection, functional units and result-registers are 
always available). The first check is for availability of the 
function unit. If none is found, the dependency tree is further 
scanned looking for LI entries. Most of the OPTB code is concerned 
with location of a destination register. If one can be located, then 
the entry is MI. If the instruction is a jump or a store, no des- 
tination register is involved. If a specific destination can be 
determined from the SO field in the R-list entry or if the instruction 
precedes a register store specifying the destination, it is necessary 
only to check whether the register is otherwise uncommitted and can 
be used for a result at current clock time. If neither of the above 
conditions exists, all feasible registers are checked for remaining uses 
and for availability at current clock time. The uses check includes 
the possibility of using a source (operand) register as the destination 
register. If a destination ^register is located under the above con- 
ditions, the instruction is MI, 

Next the instruction is checked to see if it is machine executable (MX). 
If it is a register store or a dummy transmit, exit is made to NOCODE 
with IPOINT designating the instruction. Otherwise, the entry is MX 
if its operands are availably at the current simulated CLOCK time. If 
they are, IPOINT is set to indicate the instruction, the function unit 
and registers are recorded in FUNPRIME, DESTPR, JPRIME, KPRBffi, the 
delay (DELTAT) is set to zerp and control is transferred to ISSUEX. 
If they are not available and IPOINT is not already pointing to another 
instruction, then IPOINT is set to point to this R-list entry, the 
function unit and registers are recorded, DELTAT is set to the delay 
before execution, and the scan of the tree is continued, looking for an 
MX entry. If the end of the tree is encountered before an MX entry 
is found, control is transferred to ISSUEI which will process an 
issuable instruction if IPOINT designates an MI entry or attempt cor- 
rective action (ASYNCH) if IPOINT- -1. 
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5.3 ISSUE 

The primary function of ISSUE is the maintenance of various clocks, 
tables and pointers involved in machine simulation and code selec- 
tion 'issue also passes information to POST for the generation of 
CCMPASS line images. ISSUE receives control from OPTB and returns 
to OPT IB unless it determines that code selection for the current 
sequence has been completed or that no further progress can be made 
in code selection. In either of the latter cases, exit is made 
through OPTA to PROSEQ with X6 flagging success or failure. 

Control is transferred to ISSUE at NOCODE, ISSUEI, and ISSUEX from 
OPTB and to PRUNE from OPTA. 

5.3.1 Tables maintained by ISSUE: 



/o 



^ 1 \ 
yj » J. J 



Register Contents 
Register Availability (Sec. 6.2) 
A-Register Contents (Sec. 6.3) 
Scratch Register List (Sec. 6.4) 
Function Unit Availability (Sec. 6.5) 

Cells maintained by ISSUE: 



CLOCK 

ISUCLOK 

PARCEL 

ISUPRCL 

NXTSTOR 

NXTLOAD 

X6AVAIL 

X7AVAIL 

NORLISR 

THISR 

NOSTOR 

TPRIME 



current simulated object machine time for this sequence. 

minimum simulated clock time fornext instruction issue. 

currently available parcel in object machine word. 

minimum parcel for next instruction. 

minimum clock time for next store instruction. 

minimum clock time for next load instruction. 

clock time when X6 is available as a destination register. 

clock time when X7 is available as a destination register, 

current number of R-list entries left to process. 

R-list address of entry currently being processed. 

number of store instructions remaining in the sequence. 

address of the first (highest priority) unissued tree 

entry. 



5.3.2 PRUNE 

PRUNE is a closed subroutine within ISSUE which removes all references 
to a given R-list address from the dependency tree. It is used 
primarily by ISSUE but also by OPTA during the processing of register 
defines. 
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5.3.3 NOCODE 

Entry is made at NOCODE for processing R-list entries which produce 
no object code. Register stores and dummy register transmits are 
handled by NOCODE. Appropriate register contents and availability 
words are updated and the tree is pruned, but no COMPASS output is 
generated, 

5.3.4 ISSUEI and ISSUEX 

If no issuable instruction can be found at the current clock time 
and parcel number, entry is made to ISSUEI with IPOINT negative and 
control is transferred immediately to ASYNCH. If a machine executable 
instruction has been chosen by OPTB, entry is made to ISSUEK; if a 
machine issuable instruction has been chosen, entry is made to ISSUEI 
with X5 containing the numbei? of minor cycles until the instruction 
begins execution. In either case, IPOINT points to the tree entry 
containing the address of the R-list entry to be processed. 

After appropriate initialization, the two paths merge and the 
following activities are performed: 

1. The uses count for each operand entering into the instruction 
is decremented and X-registers are added to the scratch list 
when the uses count becomes zero, 

2. PARCEL count and CLOCK are updated, taking account of word 
boundary crossing to reset PARCEL to zero and add WRDTIME into 
CLOCK. 

3. The various tables and cells described in 5.3.1 are made 
current, 

4. If the result register is an X, it is removed from the scratch 
list. 

5. PRUNE is called to remove references to the current R-list 
entry from the dependency tree. 

6. POST is called to generate COMPASS output. 

7. Exit is made to OPTB if more work is to be done _ for the current 
sequence or to PROSEQ (after calling CLSPOST) if the last 
R-list entry has just been processed, 

5,3.5 ASYNCH 

ASYNCH attempts corrective aption when OPTB cannot find an R-list 
entry to issue. If code selection is for the 6400, this corrective 
action consists of generation of a NO instruction if PARCEL = 3 or of 
adding X6 or X7 to scratch if possible. If ASYNCH is successful, exit 
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is back to OPTB; if not, exit is through OPTA to PROSEQ with X6 marking 
failure. If code selection is for the 6600, the processing in ASYNCH 
is concerned primarily with advancing CLOCK to the next point in time 
when a function unit or result register becomes available. At each 
new future time, exit is made back to OPTB for another try at code 
selection. If PARCEL = 3 and out-of-stack timing is being used, the 
effect of NO generation is investigated at the various future times. 
When all else fails, attempt is made to add X6 or X7 to the scratch 
list. If ASYNCH is unsuccessful, exit is made through OPTA to PROSEQ 
with X6 marking failure. 

6.0 Formats 

Five tables are used by OPT in connection with machine simulation, 

6.1 Register Contents 

Cells XOR through B7R contain, in the rightmost 18 bits, the number 
of the R currently residing ir, that register in the simulated machine. 
If the sign bit is set, the R has been locked into that register. 

6.2 Register Availability 

Cells XOS through B7S contain, in the rightmost 18 bits, the simulated 
clock time when the contents of the associated register are available 
as source input to a function unit. The upper 12 bits of each entry 
contains (in packed format) the number of remaining unissued instructions 
requiring the R found in the corresponding register contents cell. 

6.3 A-Register Contents 

Each pair of cells, AOCON through A7C0N, contain the complete RLISTl 
and RLIST2 entries used to set the corresponding A-register. These are 
used in the current implementation to convert 30-bit store instructions 
to 15-bit instructions when possible. 

6.4 Scratch Register List 

Cells XOSCR through X7SCR are used to keep track of the availability 
of the various X registers for use as destination registers. If the 
sign bit of a cell is set, the corresponding X register is unavailable 
as a destination. Otherwise the lower 18 bits give the simulated clock 
time at which the register cap be used as a destination. 

6.5 Function Unit Availability 

The 12 cells starting with BRANCH and ending with ING2 contain, in the 
rightmost 18 bits, the simulated clock time when the function unit 
becomes available for issuing an instruction. 
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1.0 General 

1.1 POST resides in PASS 2 and performs the following operations. 

1.1.1 Converts R-list entries into COMPASS line images. 

1.1.2 Inserts SUB and DELAY macro references into the CCMPASS string when 
a location field contains a formal parameter. 

1.1.3 Forms traceback information for 60 bit return jumps. 

1.1.4 Maintains the number of SUB and DELAY references issued for each 
formal parameter. 

1.1.5 Maintains the length of generated code for both the CODE, and VARDIM. 

relocation blocks. 

1.1.6 Defines statement labels (prefixed with a decimal point) and generated 
labels (prefixed with equivalence symbol -) . 

2.0 Entry points. 

2.1 OPNPOST 

2.1.1 Initializes the POST routine and is entered via a return jump each 

time a new sequence is initiated. It sets the COMPASS string buffer 
limits and initializes to zero the number of SUB's and DELAY'S issued 
for each formal parameter. 

2.2 POST 

2.2.1 Entered via a return jump tq translate one R-list entry into a COMPASS 
line image. Also uses the instruction size (15 or 30 bits) and the 
label field to maintain the length of the sequence and total length 

of code issued. 

2.2.2 Prior to entering POST via ^ return jump the following cells within 

POST must be set: 
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2.2.2 



(continued) 
POSTIFO+0 



POSTIFO+1 



POSTIFO+2 



Contains 1st R-list entry. The R-list op code must 

have been changed to the appropriate machine code if 

the R-list code has a choice of machine codes (i.e., 

R-list code 10 can be machine code 10 or 22). 

Contains the second R-list word (in case of type III 

R-list). 

Contains the descriptor for the R-list entry. 
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register type 
POSTIFO+4 or J and number that is to be used. I is the destination 

register, 
POSTIFO+5 or K J, K are the two source registers (if there are two). 
The following is a list of the register codes: 

BO = 17 
Bl = 18 
B2 = 19 
B3 = 20 
B4 = 21 
B5 = 22 
B6 = 23 
B7 = 24 



XO = 1 


AO = 9 


XI = 2 


Al = 10 


X2 = 3 


A2 = 11 


X3 = 4 


A3 = 12 


X4 = 5 


A4 = 13 


X5 = 6 


A5 = 14 


X6 = 7 


A6 = 15 


X7 = 8 


A7 = 16 



2.2.3 



Generally each instruction is placed in a string buffer, starting at 
LWAWORK and working towards FWAWORK. Each word will contain a right 
justified character, and the string is terminated by a zero word. 
After each R-list entry is formed, the information is packed and added 
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2,2.3 (continued) 

to the list of line images to be transferred to the COMPASS file. 
Any extra information that needs to be added, such as trace back 
information or SUB macro references, is added at this time. If it 
seems as though there is insufficient room (40 words) to POST the 
next instruction, POST exits with X6 negative. This looking ahead 
is done so that OPT does not release needed flags if POST happens 
to fail on the last entry in a sequence. 

2.3 CLSPOST 

2.3.1 Entered via a return jump to transfer the COMPASS line images for 
a sequence to the COMPS file via WRWDS2 . Also the number of SUB's 
and delay's issued for each formal parameter this sequence is added 
to the total for the parameter. This sum and subsum are maintained 
in word 2 of the 2 word symbol table entry for the parameter. 

2.4 POSTIFO. 

2.4.1 POSTIFO is declared an entry point so that the routine calling POST 
can preset the information POST needs and is not to be entered as 
it is a data area, 

2.5 FCHAR 

2.5.1 FCHAR is declared an entry point in POST so that OPT can force instruc- 
tions upper as it wishes. 

2.5.2 FCHAR is set by OPT and is either a blank or a plus in display code, 

2.5.3 POST always sets FCHAR blank before it exits. 
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2.6 PARCEL 

2.6.1 Contains an instruction parcel count 0, 1, 2, 3 or 4. It is an 

entry point because POST will add or subtract 1 parcel when it adds 
or deletes an NO instruction from the code. 

2 . 7 OVERS 

2.7.1 Contains a parcel count 0, 1, 2 or 3 of the instruction word from the 
immediately prior sequence. This is necessary to maintain the correct 
length of issued code. 

2.8 COVD 

2.8.1 Contains the address of the location that holds the length of code 
issued and is either the address of CODE for the CODE, block or 
VARDIM for the VARDIM. block 

3.0 POST produces no diagnostics. It will translate the information it is 
given. If the information is bad, it will go into the COMPASS file 
improperly and will promptly be diagnosed by the assembler. 

4.0 POST is called by QPT, It expects the information described under 
2.2,2 to be preset. 

5.0 Structure. 

5.1 Initialization 

5.1.1 POST starts by converting the contents of the I, J, K cells, which 
OPTB has set to codes for specific registers, to display code. Hie 
initial values of these cells I, J, K are given on the preceding page. 
After they are converted to display code, the register type will be in 
the lower 30 bits of the word, the register number in the upper 30 bits, 
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5.1.2 



5.1.3 



5.2 



5.3 



5.4 



5.5 



5.6 



FCHAR is transferred to LWAWORK using X7, as the store register. A7 
is therefore initialized and it is used as the store register and 
pointer for the strung out COMPASS line. A blank is added to the 
string and this will eventually appear in column 2. Thus we start 
with a '+b' or a "bb". 

The R-list descriptor is read up to determine the type of instruction 
to be converted and each type is processed in the following several 



manners: 



TYPEl 



TYPE2 



TYPES 



TYPE4 



PACK 



only a maximum of three registers. The op code is 

closely examined to find the proper instruction and the 

letters for the instruction and the register assignments 

are added to the string. 

only a mask or set instruction needed. Which one is 

determined and the letters, register and constant are 

added to the string. 

the proper letters are added according to the op code. 

The IH field is then processed which takes into account 

the necessity for issuing a SUB macro reference. 

only jump can be compiled in this case. The proper 

letters are added and the symbol is processed. 

this is the routine that the above four routines go to 

when they have finished placing a card image backwards 

in the string. The string is packed to look like a 

card that comes through the card reader and thus it is 

terminated either be a zero word or by the last word 

having 12 bits of zero in the lower 12 bits. 
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After the instruction has been added to the temporary COMPASS file, 
the substitution macro reference or delay substitution macro reference, 
is placed in the CCMPASS file if necessary. The substitution macro 
is referenced any time a 30 bit instruction has a formal parameter as 
part of its address field. The delay macro is referenced only when 
the same formal parameter is used in both the upper and lower parts of 
the same word, Traceback information is also output at this time if 
a 60 bit return jump was just processed. POST then exits with X6 
positive unless there are not 40 more words of working storage left 
(the maximum amount of storage POST could need to process one R-list 
entry.) If not enough room is left, X6 is negative, 

6 . FORMATS 

6.1 The code at PACKS may be changed during execution to facilitate the 
necessity of putting out a delay substitution macro reference for the 
following situation: 

Code desired: SAl FPl 

SA2 FP2 
where FPl, FP2 are formal parameters. 

Due to the way the address substitution takes place, the following 

COMPASS output must be produced: 

SAl FPl 
SUB FPl 
SA2 FPl+1 
DELAY FPl 
SUB FP1,1 
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6.2 

6.3 

6.4 

6.5 
6.6 

6.7 
6.8 



6.9 



6.10 



6.11 



APCA contains the CA field of the instruction presently 

being sent to COMPASS 
APLST contains zero or the name of the formal parameter just 

formed in a K field. 
APLAST contains the name of formal parameter last used in a 

K field. 
CALAST contains the last CA field put into a sub macro reference. 
CMPSPR contains the starting address of the line images for the 

COMPASS file (OPNPOST sets it to FWAWORK) . 
CMPSPS contains the address in which COMPASS line images stpred. 
TRACEP set non-zero on a 60 bit return jump. Indicates 

traceback information should be added. This is done 

after the RJ instruction has been converted to a COMPASS 

line image . 
COMPASS line string each line for COMPASS is strung out, one 

character per central memory word, backwards starting 

at LWAWORK. When the entire instruction has been 

translated it is packed 10 characters per word and 

added to the temporary COMPASS file. 
Temporary COMPASS file starts at FWAWORK and grows forware toward 

LWAWORK. Contains COMPASS card images for all instructions 

translated between a call to OPNPOST and one to CLSPOST. 
Sequence SUB and DELAY count is held in bits 41-52 of word 2 of the 

2 word symbol table. The total SUB and DELAY count 

is held in bits 19-36 of the word 2 symbol table entry 

for the formal parameter. 
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MACROE 

1.0 MACROE expands a macro reference into proper R-LIST information. 

1.1 MACROE is part of Pass 2. It processes one macro reference each time 
it is cal led. 

2.0 MACROE has only one entry point. 

2.1 MACROE 

2,1,1 One macro reference will be expanded into R-LIST. 

2 1 f^a^ 1 ! r»<-« Cfxrttiexnf-A » 

SAl "first word address of the macro reference". 
MACROE is called by PRE. Upon returning to the caller, the njacro will 
have been expanded starting at MACBUF the external location and the 
number of R-list entries the riacro expanded into will be found in MACWRDS. 
Both MACBUF and MACWRDS are contained in READRL. 

2,1,3 The macro parameters are strung out one per central memory word starting 
at PARAN which is an entry point to MACROX. The macro descriptor is 
picked up and the macro text is transferred to the macro expansion area. 
All fields of the text that have to be modified are processed during this 
transfer. When the complete text has been transferred, MACROE will exit. 

3.0 No diagnostics are produced. 

4.0 The following cells are referenced and expected to be set accordingly. 

4.0,1 RNAME - (RA+64B) (same as NRLN) contains the next R register to use. 

4.0.2 DESCR - external to MACROE start of the descriptors. This address is used 
as the starting point to index into the descriptors. 

4,0.4 PARAN - external to MACROE - is the starting address of storage used for 
expanding the calling parameters for each macro reference. Starting at 
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PARAN (in MACROX) there is sufficient room to expand the maximum 

cal 1 ing sequence. 
4.0.5 HACORG - external to MACROE that is set by an E(iU in MACROX. it is set 

to the table bias for the macro numbers. 
4,0.6 DOMACK - the bias added to the macro descriptor to find the DO macros. 

4.0.7 MACBUF - is the starting address for storing the expanded macro. 
4.1 MACROE will have set the following cells upon exit: 

4.1.1 RNAME- will be updated to reflect any register numbers (R's) generated 

in the macro expansion. 

4.1.2 MACWRDS - will contain the number of words in the macro expansion. 

4.1.3 MACBUF - external to MACROE. First word address of the area in which 

the macro is expanded. 

4.1.4 MACWRDS - set to the number of words in the macro expansion. 

4.1.5 MACNXT - set to MACBUF if there were no RLIST entries to expand. 

5.0 Structure - The expansion can be broken into three distinct portions. 

5.1 Pick up Macro descriptor 

5.1.1 The macro number is adjusted by the table bias (MACORG) and the descriptor 
is picked by indexing Into the macro descriptor table which starts at 
MACDESC. This descriptor contains information to do the following: 

5.1.2 The initial value of the register number (R's) to be used for this macro 
expansion is saved and then updated to reflect the number of registers to 
be generated in this expansion. 

5.1.3 The macro length is extracted and placed In MACWRDS. 

5.1.4 The descriptor for each macro contains the number of registers passed 

as formal parameters. The number of symbolic fields (IH) and the number 
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of constant fields (CA) passed as formal parameters. These fields are 
extracted from the descriptor and saved. 
5.1.5 A read register is Initialized to the first word of the actual macro text. 

5.2 Expand the actual macro parameters. 

5.2.1 The number of R's, IH's and CA's have been saved from the macro descriptor. 
They are now extracted from the macro referenced area and expanded starting 
at location PARAN. They are unpacked so that each parameter occupies one 

5.2.2 The addresses of the start of each field are kept in B registers. This 
allows indexing into the list when an actual parameter substitution is 
requ i red , 

5.3 EXPAND the macro text. 

5.3.1 One word is read from the text. The DC is extracted and used to index 
into the descriptors to determine the type of R-1 ist desired. 

5.3.2 TYPEl - The three R fields are extracted, examined to determine what, 

if anything, should be substituted for them. They are then reformed and 
added to the expansion area. In all cases R fields may be replaced with 
a parameter R, a generated R, or they may be left alone (in case of AO or 
BO). 

5.3.3 TYPE2 - the Rl field and CA field are examined to determine if any change 
Is necessary. The lower 13 bits of the 14 bit SO field are saved. (The 
upper bit is an indication as to whether or not the CA field is an actual 
parameter). The R-LIST entry Is combined and added to the macro expansion 
area. 

5.3.4 TYPE3 - 
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5.3.4.1 First word has a replaceable Rl and CA field. The lower 13 bits of the 
SO field are saved. The RI and CA fields are replaced if necessary. The 
entry is reformed and added to the macro expansion, 

5.3.4.2 The second word is read up. It has a replaceable IH and R field. The H2 

iltSiU, II cliiy} 13 ucat 1 uycu . i ms i i vs i vja ai v* pi v/w«i.^^viiu , vnv- wn^ • ^ • •^■^■^.,. 

bined, and added to the expansion. 
5.4 This continues at 5.3 until all the text has been processed. 

6.0 FORMATS - 

6.1 No flags or tables are held or built by MACROE. 

6.2 The expanded macro is in the form of regular R-LIST as described in the 
R-LIST write-up. The formats of macro descriptor and macro text are given 
there also. 

7.0 No modification facilities. 
8.0 Method: 

The macro is expanded one word at a time, replacing actual fields as 

necessary, 
9.0 The coding in MACROE has been reordered several times to improve its 

timing. Any modification should be done with care. 
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BUILDDT 

1.0 General Information 

1.1 BUILDDT builds a dependency tree from a specified sequence in 
the R-list, One should be familiar with the information in 
Chapter 26 before reading this document. The tree will reflect 
the following: f 

1.1.1 The requirements of an R-list entry for results produced by 
another R-list entry. 

1.1.2 The requirement that store operations take place within the most 
immediate surrounding jumps, (stores must take place prior to the 
following jump and after the preceeding jump). 

1.1.3 The requirement that all references to identical IH fields are 
in the same relative order as originally in the R-list. (This 
is to make sure A (5) is stored into last in the following ex- 
ample) 

DO 10, I = 1, 10 

A (I) = expression 
10 A (5) = expression 

1.1.4 The requirement that the updating of DO loop index functions takes 
place after all of their uses within the DO loop. 

1.2 The following conditions will prevail when BUILDDT exits: 

a) If there was insufficient working storage for the tree 
to be built X6 will be negative. 

b) Otherwise X6 will be positive and the entry point TREELNG 
contains the length of the tree, the entry point FWATREE 
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2.0 
2.1 
2.1.1 



2.1.2 



2.1.3 



contains the start of the tree, FWAWORK has been updated to 
save the tree, the descriptor for each R-list entry include 
the number of times the entry is used as a predecessor. (See 
section 27 for a more detailed explanation of an R-list 
descriptor). Each entry in the tree occupies one computer 
word in the following format. 

59 36 35 18 17 



— 


■ 
SUCCESSOR 


PREDECESSOR 



The predecessor and successor fields are each 18 bits long and 

contain the address of the operation within the R-list. The tree 

is ordered such that the entry with the highest priority appears 

first. 

Usage 

Entry Point Name: BUILDDT 

BUILDPT is entered with a sequence in the R-list specified for 

which a tree is to be built. The start of the R-list (FWARLIS) , 

the number of entries in the R-list sequence (NORLIST) , and the 

available core limits FWAWORK, LWAWORK are all accessed. 

BUILDDT is entered via a return jump. It exits through its entry 

point with X6 negative if there is insufficient room; otherwise, 

X6 is positive and the conditions listed under 1.2 above prevail. 

BUILDDT is divided into three parts; the building of the tree, 

the calculation of priorities, and the sorting of the tree. 

Initially, a temporary tree is built starting at LWAWORK and 

extending toward FWAWORK. The tree is then sorted such that all 
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equal predecessors are together and in ascending order. The 

priorities are then calculated. A priority sort is then per- 

i 
formed and the tree is moved to start at FWAWORK and grow toward 

LWAWORK. 
3.0 No diagnostics are produced. 

4.0 Environment: The following information must be provided in the 

following cells, all external to BUILDDT. 

4.1.1 FWAWORK, LWAWORK must contain the available working storage limits. 

4.1.2 FWARLIS must contain the first work address of the sequence. 

4.1.3 NORLIST must contain the number of R-list entries in the sequence. 

4.1.4 It is expected that the sequence will have been transformed into 
three sections that lie in series. The first section contains 
the first word of each R-list entry, the second section contains 
the second word of each R-list entry, (zero for R-list types of 
one word length) and third section contain the descriptor for 
each R-list entry. The routine COPy placed the tree in this 
forma t . 

5.0 Structure 

5.1 First Section - Forming the Tree 

5.1.1 After initialization, one pass is made through the R-list to link 

any store instructions to surrounding jump instructions. The 
first store instructions are linked to the end of the sequence 
with an instruction time of 10 (time for a store) and a total time 
of minus one. (This total time and instruction time are used in 
the priority calculation.) As each store instruction is linked, 
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its address is kept in another list. When/if a jump instruction 
is found, all of these store instructions are made successors of 
the jump instruction. After this list of store instructions is 
depleted in this manner, this search is continued. Store instruc- 
tions are now made predecessors to this new jump instruction and 
will be made successors to a preceding jump instruction if there 
is one. This search terminates upon detecting the start of the 
sequence. During this pass through the R-list, the uses of Bl 
are noted and made predecessors to the initialization of Bl for 
DO loop usage (if there is such an initialization). 
5.1.2 Now the tree entries for register dependency and for DO loop 

functions are made. At the same time we do this, information 
is saved to enable us to later accomplish the sequential linking 
of IH fields. Since, in a well behaved DO loop, addresses can 
be accessed through B registers, short loads arid stores are also 
entered into this list of IH fields. An R-list entry is read 
and unpacked. If it has a negative exponent, this indicates a 
DO loop function is being updated and linkage to this functions 
use is required. The RI field is extracted and compared to all 
prior RJ, RF, and RK fields in the sequence. Any that are equal 
to this RI result in a tree entry. This is done in a routine 
called SUBLINK. The instruction is repacked, with a positive 
exponent, and stored back into the R-list 1 section. We then 
determine the type of R-list entry, extract the appropriate regis 
ters and search the rest of the R-list for the definition of 
these registers. If they are not defined in the sequence they 
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are linked to the start of the sequence. If they are defined, 
the instruction for the definition is extracted from the descrip- 
tor and included in the temporary tree. The predecessor count 
in the descriptor is updated by 1 only when its resultant register 
is needed in another operation. This continues until the whole 
R-list has been examined and proper tree entries made for it. 

5.1.3 At this time the list containing the IH field information is 
processed and tree entries made, if necessary. The list is 
searched for a usable entry. When one is found, its IH field is 
extracted and the rest of the list is searched to find if there 
is an entry specifying that a store was made into this IH group. 
If a store was made, the entries using this IH field are sequen- 
tially linked so that these operations take place in the same 
order in which they wei;e specified in R-list. 

5.2 Second Section - Priority Calculation 

5.2.1 The tree is sorted so all entries with the same predecessor are 
together and the list is in ascending order. This is done to 
reduce the number of memory accesses to accomplish the building 
of priorities. 

5.2.2 The building of priorities starts with entries linked to the 
end of the sequence. The priorities are built by working back- 
wards in the tree and calculating the maximum amount of time it 
will take to reach eacl"^ point in the tree. When a node is found 
in the tree for which the time to reach has not been determined 
for all paths to the point, one of these paths is chosen and a 
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forward search is made along this new path until a node in this 
path is found for which the time has been determined. The prior- 
ity building starts agdin, backwards from this point. The prior- 
ity field, which is in the upper 13 bits of each tree entry is 
set negative as each path to the point is analyzed and set positive 
when all paths to that point have been analyzed. When there are 
no entries other than those linked to the start of the sequence 
with negative time, the priorities have been calculated. 
5.3 Sorting of the tree - two parts. 

5.3.1 A simple sort of the tree is performed by comparing two entries 
and switching them if the second has a higher priority than the 
first one. Each time a switch is performed, a flag is set and 
after each pass through the tree, if the flag is set, another 
pass is made. This method was employed because the tree is fair- 
ly well sorted from the start as a result of the order the tree 
entries are initially ipade. 

5.3.2 Any entries with a priority of zero (dangling code) are eliminated 
from the tree at this time and the uses count (see description of 
descriptor, section 2f ) of its predecessor is decreased by 1. 

5.3.3 The tree is then transferred so it starts at FWAWORK and grows 
toward LWAWORK. During this transfer, all information but the 
predecessor and successor is extracted from each entry. When 
entries with equal priorities are encountered, the section of 
equal priorities is further examined and reordered so that the 
entries with the greater number of predecessors appear first. 
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6.0 
6.1 



Formats 
Tree 



TT 


IT 





SUCCESSOR 


PREDECESSOR 



13 5 6 18 18 
TT - total time to get to this successor in tree 
IT - time to get from this predecessor to this successor 
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PS2CTL 



1.0 



2.0 

2.1 



2.2 



2.2 



2.3 



Genera 1 

PS2CTL is the first routine entered in Pass 2. It places all 
Pass 1 diagnostic messages into the output file before calling 
PRE. The Pass 2 I/O routines are entry points PS2CTL. The dis- 
play code diagnostic messages are also contained in PS2CTL. 
Entry Point Names 

ERR0R2. The first entered entry point of Pass 2. It checks for 
errors and lists diagnostic messages. If fatal to compilation or 
execution errors occurred. Pass 2 is not executed but control is 
returned to LDCOMl in CL0SE2 to reload and execute Pass 1. 
PS2CTL. PS2CTL is not used as an entry point as such but simply 
to denote the start (low memory address) of working storage for' 
Pass 2. 

RDWDS, The routine for reading R-list from the disk. The calling 
sequence is : 

SB6 "file number" 

SB7 "fwa" of central memory to read in to 

SBl "ntimber of words to transfer" 

RJ RDWDS 
WRWDS2. The routine used for placing line images into the COMPASS 
file. The calling sequence is: 

SB6 "file number" 

SB7 "fwa" of central memory to transfer from 

SBl "number of words to transfer" 

RJ WRWDS Z 
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3.0 PS2CTL detects no error conditions. 

4.0 Environment 

PS2CTL looks at or initializes the following named location of the 
low core communications area: SYMEND, PTEMP, APLAST, VARl, PROGRAM, 
VARLAST and NRLN. 

ERTAB contains the error code number and the line number of the 
error as set by ERPRO. 

5.0 Structure 

5.1 RDWDS first checks to see if the given buffer is empty and if so a 
call is made to CIO to fill it. MVWRDS is called to actually trans- 
fer the given number of words from the buffer to the CM location. 
The IN and OUT locations and NUMBER of words out of the buffer are 
maintained. 

5.2 MVWRDS moves a given number of words from a buffer area to the ire- 
quested central memory location. 

5.3 WRWDS2 essentially performs the write function, maintaining buffer 
pointers and calling MVWRDS to actually perform the move from a CM 
location to an output buffer. 

5.4 ERR0R2 is the primary entry point; issues diagnostic messages to the 
list file, then either calls PRE to continue Pass 2 or LDCOMl to 
process the next program, if any. 

6.0 Formats 

The error table format is described in ERPRO, Section 7 , as is the 
format of diagnostic messages. 
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FORTRAN EXTENDED ASSEMBLER 



1.0 GENERAL INFORHATION 

1.1 Task Description 

The FORTRAN Extended assembler FTNXAS replaces COflPASS as the 
assembly pass of FORTRAN Extended Version 2.0. It is a one 
pass assembler designed specifically to increase compilation 
speed. It accepts a formatted subset of the COflPASS assembly 

I _.- . I ^J..>-»» U.:>^-Mn>s irtn \ r\^~ =»4- =t\r\ 1 o c«i iKr\r»onr»;amc! . All 

information required to facilitate a one pass assembly is 
gathered during the previous two passes of the compiler- 

2.0 USAGE 

2.1 Entry Points 

2.1.1 FTNXAS 

The assembler is entered either by a direct jump if the 
assembler is a separate overlay or by a return jump from 
CL0SE2. 

3.0 DIAGNOSTICS 

3.1 Fatal to Execution 
3.1-1 ILL 

The word ILL appearing to the left of the source line on the 
assembly listing means the assembler could not recognize the 
statement or encountered an ERR pseudo-op. Uhen this occurs 
assembly is abandonedr the fatal to execution flag is setr 
the source line is printed regardless of the ^0^ optionr and 
assembly proceeds with the next statement. The fatal to 
execution flag causes the message ^FTNX ERRORS^ to be written on 
LGO in place of the normal relocatable subprogram. Note that since 
the code produced by the first two passes is assumed to be 
correct r minimum error checking is designed into the assembler. 
The usual response to an error in the source string will be 
this diagnostic. Abnormal termination of the job may occur 
during compilation because various unused jump vectors in the 
assembler are used for storage or unrelated code. 

3.1.2 SYriBOL ERR 

This message appears to the left of the source line if the 
assembler was unable to find a symbol in the two word symbol 
table. This error causes the same action as described for 
ILL. 
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3-1.3 STORAGE OVERFLOU 

This message is printed on a separate line when the assembler 
has expended all available working storage for chained common 
and external reference information- Assembly will proceed to 
count the increase in field length requiredr but no relocatable 
binary deck will be produced. The message ^INCREASE FIELD 
LENGTH BY XXXXXX^ is printed after the END statement of the 
subprogram- 

3.E Informative 

None. 

^.D ENVIRONMENT 

The assembler may reside after CLOSES in the -ClrSl- over 1 ay r 
as a separate overlayr or with Pass 1 and E of the compiler 
in a non-overlay configuration. 

^-l Input String 

The input string consists of COHPASS language card images 
constructed using the following rules. 

Executable Instructions 

1. The label field must be blank except the forcing charac- 
ters + -CupperJ and - -ClowerJ may be used in column 1- 

E. The operation code must begin in column 3. 

3- There must be only one space between the operation and 
address fields- 

M- Following is a list of executable instruction mnemonics 
and address fields that FTNXAS can recognizer followed 
by the binary produced- 

Binary 
Opcode Address in Octal Other Action 

RJ Symbol DIDODDDODD External relocation 

notedn force upper next 
instruction- 

JP BlrSymbol DEIDXXXXXX Program relocation 

noted "n force upper next 
instruction. 

JP 81 DSIDDDODDD 
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B inary 



Opcode Address 


in Octal 


ZR 


XjrSymbol 


OaOjXXXXXX 


NZ 


Xj rSymbol 


D31jXXXXXX 


PL 


XjrSymbol 


D3EjXXXXXX 


NG 


XrrSymbol 


D33iXXXXXX 


EQ 


Symbol 


o^oDxxxxxx 


EQ 


Bj ,Bjr Symbol 


DMjjXXXXXX 


IME 


BjfBjf Symbol 


DSjjXXXXXX 


GE 


BjrBjf Symbol 


QbjjXXXXXX 


LT 


B j rBjrSymbol 


G7- jXXXXXX 


BXj 


'^j 


lOijJ 


BXj 


Xj*Xk 


llijk 


BXj 


Xj-^k 


12ijk 


BXj 


^r^k 


13ijk 


BXj 


-Xk 


l^ikk 


BXj 


-VXj 


l^ijk 


BXj 


-><k-Xj 


l'=ijk 


BX 


1 -Xk«Xj 


I'^ijk 


LX 


i jkB 


eoijk 


LXj 


kB 


EOjDk 


AX 


i jkB 


2^ijk 


AX 


1 kB 


21iD|, 


LX 


i BjrXk 


22ijk 


AX 


i BjrXk 


23ijk 



Other Action 
Program relocation noted- 
Program relocation noted- 
Program relocation noted- 
Program relocation noted- 
Program relocation noted^ 
force upper next instruc- 
tion- 
Program relocation noted- 
Program relocation noted- 
Program relocation noted- 
Program relocation noted* 
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Oocode Address 


B i nary 
in Octal 


Other Action 


NXj 


BjrXk 


24ijk 




UXj 


Bj.Xk 


Sbijk 




PXj 


Bj,Xk 


27ijk 




FXj 


Xj+Xk 


3Dijk 




FXj 


Xj-X|^ 


31ijk 




DXj 


Xi^Xj 


^^ijk 




DXj 


Xi-Xj 


33ijk 




IXj 


Xj-Xk 


3bijk 




IXj 


Xj-Xk 


3^ijk 




FXj 


Xj'-Xk 


40ijk 




DXj 


XjMXk 


42ijk 




nXj 


jkB 


43ijk 




nxj 


kB 


43iDk 




FXj 


Xj/Xk 


44ijk 




NO 




MbDOD 




Sri 


Aj+A.E. 


gDijXXXXXX 


Relocation noted. 


Sri 


Bj+A.E. 


gljjXXXXXX 


Relocation noted. 


"^r 1 


A.E. 


gljDXXXXXX 


Relocation noted- 


Spi 


X-A.E. 


gEijXXXXXX 


Relocation noted. 


Sri 


Xj-Bk 


g^ijk 




S^i 


Xj 


g3ijD 




Sri 


Aj*Bk 


g^ijk 




Sri 


Aj 


gMijD 




Spi 


Aj-Bk 


gsijk 
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Opcode 
Spi 
Spj 
Spi 



Address 



i> 






B inary 
in Octal 

gbijD 



Other Action 



If r=A then g^S, if r=B then g=br if r=X then 
g=7- 



E3" A»E- is an address expression consisting of octa 
constants and/or symbols in the same relocation 
base separated by plus €+3" or minus -C-^- symbols- 



Pseudo-Ops 

1. Any pseudo-op may be labeled- 

E. Pseudo-ops are free field except labelsr if presentr 
must begin in column 1- 

3. Following is a list of permissible pseudo-ops r their 
formsr and the results- 



Label Opcode AddP^gS 
Required BSS Octal constant 



Optional DATA Octal constant 



Optional DIS 



nr character 
string 



Action 

a> force upper- 
b> define the label- 
c> increment the 
origin counter 
by the valup of 
the octal constant. 

a> Convert the octal 
constant to binary 
and write it out- 

b> Define the labelr 
if present - 

a> Define the labeU 

if present- 
b> Urite n words with 

blank fill. 
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Label Opcode Address 

Optional ECU Anything 

None ORG Address expres- 
sion 



Required SET 



a> 
aJ 



a> 



None 



None 



REPI 



USE 



Optional VFD 



S/Symbol- B/Octa! 
constantr C/octal 
constant 

name or /name/ 



a> 



1> n/octal a3- 
constant - 

23- n/address ex- 
press ion r 
IfiinibO, 

3> -Cn^bJ/CnJ-CCH, 
L or R3-, Char- 
acter string, 
lin<lDrOSn<lD. 

M> Any combination 
of the above 
separated by 
commas - 

51 The total bits 
specified must 
be 15, 3D or LD. 

t)> Any relocatable 
quantity must be 
in the lower Ifi 
bits of the gen- 
erated field- 



Optional MACRO Anything 



a> 



Action 

Ignored- 

The origin counter 
is reset to the 
value indicated 
by the address 
expression. 

The label is de- 
fined to have the 
current value of 
the origin counter- 

A PTDT +. -.U I « :- 

produced- 



Change the origin 
counter to that of 
the block indicated. 

The specified data 
is converted to 
binary and written- 
Re location is noted. 



CA 138-1 REV 10-67 



Causes the assem- 
bler to ignore al 1 
1 ines fol lowing 
until the characters 
^ENDn^ are encountered 
beginning in column 
3. 



CONTROL DATA CORPORATION 
__^ DIVISION 



DOCUMENT ri ac:<; IMS ^ PAGE NO IklZ 

PRODUCT NAME FORTRAN Extended Version £■□ 

PRODUCT MODEL NO. 



3PCDa MACHINE SERIES ^^/bS/bbDO 



Label Opcode Address Action 

NOTE - FTNXAS ignores macro descriptions; the macros 
that it expands are treated as pseudo-ops- 

None ENDM -CCols- 3-b> a> Terminate skipping 

of a macro prototype 
and return to normal 
assembly mode- 

END -[must start in a> Terminate assembly 
Cols- 3-6> and return- 

Symbol or blank 

IDENT Anything a> Causes assembler 

initial izat ion to 
take place and 
assembly to begin- 

LIST Anything a> Ignored- 



Macro Cal Is 

1- Macro calls for SUB, DELAY, FILE, and ENTR must 
have exactly one space between the call and the 
parameters- NAME and ADDSUB are free field- 

B- Below is a 1 ist of macro names the assembler wi 1 1 
recognize- See Section 5 of this document for the 
macro prototype description and the generated code 

Comments 



Label 


Macro Name 


Parameters 


None 


ADDSUB 


FP 


None 


SUB 


FP, CON 


None 


DELAY 


FP 


None 


FILE 


LNrNAME 


None 


FORPAR 


X 


None 


NAME 


N,Tr BASE, BIAS 
FPrDl,D2,D3 


None 


ENTR 


NAME 



FORPAR cal Is are 
ignored by FTNXAS- 
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M.E Two Uord Symbol Table 

Active statement label Sr entry pointsr and the labels DO., 
ST.r and OT. are defined by a block relative address and a 
relocation base indicator- The length of the relocation 
base associated with each formal parameter is also held in 
this table. Other entries are marked as undefined and their 
addresses are. determined during assembly. 

4.3 Actual Parameterr Variable Dimension and Generated Label Tables 

Three tables contain respectively actual parameter, variable 
dimension, and generated label definitions relative to the 
CODE, relocation base. 

^'^ ORGTAB 

A table of one word entries which is used to pass to the 
assembler the names and lengths of the^ common relocation 
bases and the lengths of the local relocation bases, START., 
ENTRY., VARDin., CODE-, DATA-, DATA--, and HOL-- 

H.S APTAB, VDTAB, GLTAB 

Set in ORGTAB to the first word address of the AP , VD, and 
GL tables. 

M.b Object Listing Option 

Bit zero of location RA+33B is set to 1 to indicate the ^0^ 
option has been selected. 

4-7 SYMlAr SYflENDA 

RA+HbB and RA+47B point to the first and last entries of 
the two word symbol table respectively. 

4-a RA+4 

Contains in the upper ME bits the name of the binary output 
file and in the lower IS bits a pointer to the FET for the 
file. 

M.T ILLFLAG 

Set to non-zero if a fatal to execution or compilation error 
has occurred before entry to the assembler. 
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S.D MAJOR SUBROUTINES AND LOGICAL SECTIONS 

S.D-1 Summary 

1- PIDENT - initializes the assembler for each program- 

E- BUILDOT - creates a E2 word ORGTAB entry. 

3= [1R. CLEAN - removes blank fill from a symbolic name- 

4. INITL-[NOBINPO> = moves the next source image to ILINE 

from the COnPS buffer- Controls reading the COflPS file- 

5- START "" controls analysis of the label field of each 
source statement. 

b- COLIVEC - determines the contents of the label field- 

7- BLANK - processes a blank label field. 

fi. PFC - processes forcing characters + and - in the label 
field. 

T- PLABEL - processes a symbolic name in the label field- 
ID. OCSCAN - controls opcode field analysis- 

11- Opcode transfer vector - decodes the contents of the 
opcode field- 

12. L3.RJ - produces a binary instruction for RJ. 

13. L3.JP - produces a binary instruction for JP - 

m. L3.XJP - produces binary instruct ions for ZRr NZr PL and 
NG. 

IS. L3.E(2 - produces a binary instruction for Ei2. 

lb. L3-BJP - produces binary instruct ions for NEr GEr and LT 

17. L3-B00L - produces binary instruct ions for all BXj- 

16- L3.riXr L3-SH - produces binary i nstruct ions for shift 
unit instructions tlXir LXjr and AXj- 

n. L3.PUN - produces binary instruct ions for NXjr UXjr and 
PXi . 
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ED. L3.ARIT - produces binary instruct i ore for FXjr DXjr IXj. 

El- L3.SET - produces binary instruct ions for the increment 
unit instruction SAjr SBjr SXi- 

ES. L3.VFD - translates the address field of VFD pseudo-op 
to binary. 

E3- PDIS - processes the DIS pseudo-op. 

EM. PDATA - converts the address field of the DATA pseudo-op 
to binary. 

ES' PBSS - processes the BSS pseudo-op. 

Sb. FUSE - processes the USE instruction. 

S7. USENXT - changes relocation bases- 

E6- USESTAR - returns to the previous relocation base- 

ET- PSET - processes the SET pseudo-op. 

3D. L3.ORG - processes the ORG pseudo-op. 

31. PMACRO - processes the HACRO pseudo-op- 

3E- PREPI - processes the REPI pseudo-op - 

33. PADDSUB - processes and ADDSUB macro call. 

3H. PDELAY - processes a DELAY macro call. 

35- PSUB - processes a SUB macro call- 

3b. PFILE - processes a FILE macro call. 

37. PNAHE - processes a NAME macro call. 

3fi. PENTR. - processes an ENTR macro call. 

3T. EVAL - evaluates an address expression. 

MD. REF - obtains the value of a symbolic name. 

m. CONVERT - converts display coded octal constants to binary 

ME- PACKID - separates a symbolic name from the input string. 
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C ! Subroutine Cal 1 

T' Transfer of Control 



From: 

1 5 3 M S b 7 a 1 ID 11 la 13 mis lb 17 la n 2D El 22 23 24 2S 2b 27 28 2T 30 31 32 33 31 3S 3b 37 3a 3T MO m 42 43 44 4S 4b 47 4a 4'=1 SO 



To: 1 

2 C 



3 C 

4 T 

5 T 

b T 

7 T 

a T 

=i T 

10 T T T 

11 T 

12 T 

13 T 

14 T 

15 T 
lb T 
17 T 

la T 

n T 

20 T 

21 T 

22 T 

23 T 

24 T 

25 T 
2b T 
27 

2 a 

2T T 

3D T 



T T T T T T 



C C C C 

c c c 



C: Subroutine Call 

T: Transfer of Control 



SUBROUTINE INTERCONNECTION MATRIX 



Pg. 2 of 2 



To: 



31 
32 

33 
34 
35 
3b 
37 
3fl 
3T 
40 
Mi 
42 
43 
44 
4S 
4t. 
47 
46 
4i 
50 



From: 

12 3 



S t 7 a T 10 11 12 13 14 IS lb 17 Ifl IT EO 21 22 23 24 2S 2b 27 2fl 2T 30 31 32 33 34 35 3b37 3a 3T 40 41 42 43 44 45 4b 47 4,3 4T SO 
T 
T 
T 
T 

T T 

T 
T 
T 



C C 



C C C C 



C C 



TTTTTTTTTT CT 



C C 



C C 



C C 



EXTERNAL ROUTINES: 
LSTPROC 



LIST 
bJRUDSa 
CIOl. 
DPCLOSE 



C C 



C C 



CONTROL DATA CORPORATION 
DIVISION 



DOCUMENT CLASS 10^ , PAGE Kin 3b.ll 

PRODUCT NAME FORTRAN Extended Version g.D 

PRODUCT MODEL NO. BPCOfi MACHINE SERIES tjM/bS/bbDO 



43. IJRSE(2 - writes a sequence of words on the LGO f i le- 

HH. WRTEXT - maintains ORGC and POSCr creates and writes 
TEXT tables for the loader. 

HS' FOTEXT - forces out the current text table. 

4tD. URLIST - prints each source line? generated binary 
instruction and the ORGC. 

M7. L4.CKLrDEf — defines statement labels. 

4fl. L4.CKRB - does address relocation bookkeeping. 

4T. ILLrSILLrSTOVER - processes error conditions. 

SO. PEND - terminates the assembly process- 

S.D.E Subroutine Interconnection Natrix 
See attached pages. 

5.1 PIDENT 

S.1.1 This routine initializes the assembler. It is entered from 
the opcode vectors when the IDENT pseudo-op is encountered. 
The following tasks are performed: 

1. The pointers to the first and last entries of the two 
word symbol table, SYHl -LRA+IEBJ and SYMEND -CRA+13B>r 
are reset from SYniA -CRA+4bB]- and SYHENDA -[RA+47> 
respect ively . 

2. flEMEND, the upper limit of the assembler working storager 
is set to the contents of VDTAB-1- 

3. Three switches, LSTSUl, LSTSUE and LSTSU3, which are entry 
points in LSTPROC, are reset to the values KLSIA, KLSEA 
and KLS3Ar also entry points in LSTPROC. This change is 
necessary because the names of basic external functions 
-CSINr ALOGr etc.> are initially entered in the two word 
symbol table without a trailing special character -C- or 
^>r but they appear in the COMPASS line image with this 
character suffixed. Resetting the three switches causes 
LSTPROC to delete the trailing non-blank character for 
symbols of fewer than seven characters or to exclusive-or 
the last character with Db for seven character names and 
search for the resulting name. 
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^. Allocate an LGO Buffer from MEMSTRT to nEHSTRT+LGOSIZE+lr 

set FIRST, IN, OUT to flEMSTRT and LIMIT to MEHSTRT+LGOSIZE+l 
in the LGO FET, and reset MEMSTRT to MEMSTRT+LGOSIZE+E. 

S. Set LCNT, and entry point in LIST, to zero to cause a page 
eject and set LINE to LINE+H to blanks. 

b. If LCC cards are present place each on the file LGO file 
with an end of record write- 

7. Print the IDENT and LIST cards and reset COMPS OUT to the 
next card image- 

fi. If the object listing option ^0^ has been specified, set 
the switches at NOBINPO and URTSU with return jumps to 

I.IDI TCT 
IUI\U.XO I ■ 

T. Put a 15 word prefix table with the program name into the 
LGO buffer. 

ID. Put the ID word and program name word for the PIDL table 
in the LGO buffer- 

11. Scan the COMMON portion of ORGTAB until a zero word is 

encountered moving the COMMON block names and lengths to 
the PIDL table and using the subroutine BUILDOT make a 22 
word CORGTAB entry for each. The 2S word CORGTAB is built 
upwards in memory from MEMSTRT and is terminated by a 
zero word. 

IE- LORGTAB entries of E2 words each are built for the seven 
local relocation bases that are always present using the 
subroutine BUILDOT- The lengths of the bases are stored 
in the locations STARTA, VARDIMA, . - - ,HOL/\ which are entry 
points in ORGTAB. The names of the relocation bases are 
taken from the assembler table LOCNAM- 

13- If the current subprogram is a subroutine or function and 

there are formal parameters there must be a 22 word LORGTAB 
entry setup and initialized for each. The names and lengths 
come from the two word symbol table- The formal parameters 
are contiguous from ordinal two each having the FP bit set 
to one. The length of the relocation base is placed by 
Pass 2 in the RA field and is changed to a program relative 
address at this time while the RB are set beginning at 
seven in increments of one and RL is set to 1. 

m. The LORGTAB is terminated with a zero word and the program 
length which was accumulated during LORGTAB construction is 
printed then stored in the PIDL table. MEMSTRT is adjusted 
to the next location after the terminating zero word- 
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IS. If the program name is an entry point determine its address 
by the following rules: 

Main Program: zero in CODE- 

Subroutine: no formal parameters; one in START. 

Subroutine: with formal parameters"-, two in START. 

Function: two in START. 

and start an ENTRY table after the PIDL in the LGO buffer 
with the program name as the first item- 

\h- Scan the two word symbol table beginning below the formal 
parameters- 

a« Symbols with bit Bb of word B equal to zero aPB 
given a program relative address r i.e.r the first 
word address of the relocation base indicated by 
the RB field is added to the RA field and RL is 
set to one. 



17. 



la. 



M. 



bx Symbols with the ENT. bit equal to one are put 

into the ENITRY table along with their calculated 
program relative addresses. 

c External names are moved to the LINK foundation 
table being built upwards from MEflSTRT. The 
contents of bits ^l-v^3 of word B are exclusive- 
ored to the first trailing blank in the name before 
it is stored in the LINK table. 

Uhen the symbol table scan has been completedr the word 
count for the ENTRY table is placed in word one, the LINK 
foundation is terminated by a zero word and riEIISTRT is reset 
to the next available location. 

The next step is to print the ENTRY and LINK tables and to 
remove the blank fill from the names. The tables appear 
below the IDENT and LIST pseudo-ops regardless of the ^D^ 
option. Each table is prefaced by a label indicating its 
type- 

The actuaj parameter r variable dimension and generated 
jabel definition tables are scanned. The tables lie 
immediately below the two word symbol table and are 
terminated by a zero word. Each entry contains In the 
lower Ifi bits definitions of the CAPrlVD and =GL labels 
relative to the CODE, relocation base. Any or all of these 
tables may be empty. The base address of CODE- is added 
to make the definitions program relative. The entries refor- 
matted to look like word B of the two word symbol table- 
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20. 



El. 



lOPARflr an entry point in WRUDSBr is set to IbB to cause 
assembly output to be in binary mode- 

FREEflEMr the pointer to the next free location of working 
storager is set to the contents of HEMSTRT. RBTEflPf used 
for relocation calculationr is initialized to zero. 



S.E BUILDOT 

S.E-l This subroutine is used during assembler initialization to 

allocate and initialize a EB word ORGTAB entry corresponding 
to each relocation base in the program. 

The calling sequence is: 

BE = origin counter {base address^- for this block? 

This will be zero for common blocks and the sum 
of the lengths of previous local blocks for 
program relocation base. 

B3 = Relocation base code- This is the LCT ordinal 
passed out to LGO and used by the loader- It 
starts at three for common blocks and for local 
blocks is always one- 

Btj = First word address of the EE word entry. 

XI = The relocation base name in bits Ifi-S^ with 
blank fill. Bits 0-17 must be zero. 

XE = Block lengthr a running sum of block lengths 
is maintained in BE to provide the current 
origin counter for local blocks and the program 
length at the end of ORGTAB initialization. 

5.3 INITL -CNOBINPOl 

5-3-1 INITL with its alternate entry point NOBINPO is the first 

routine in the main assembly loop. Its function is to read 
the next source image into ILINE from the COriPS file- While , 
doing this INITL also manages the COUPS FET and issues read 
requests whenever there is room for one PRO in the buffer- The 
number of words moved to ILINE is stored in location SUC- The 
alternate entry NOBINPO is used whenever the last line processed 
did not produce any binary output- It is one word located at 
INITL-1 and filled with NOPS unless the ^0^ option is specified. 
In this case it is plugged with a call to WRLIST during initialize 
tion- INITL exits to START to begin processing the 1 ine- 

S-H START 
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S.^.l This routine sets the following registers for the character 
pickup macros GCH and CliJD: 

Bb = b 

B7 = SM 

A5 = ILINE 

X5 = -CILINEl 

XD = SH bit mask; left justified. 

START exits by jumping into COLIVEC using the first character 
of the line as an index- 

S.S BLANK-. OCSCANi PFC-, PLABEL-, PNL-. OPCODE VECTORS 

S-S-l COLIVEC" A jump vector used to determine the contents of the 
label field- It partitions the first SO display characters 
into the following sets and branches to the indicated routines 
for further processing. 

^Af B, C,. ..,Z,>, ., = , [,]^branch to PLABEL 

^+, -?branch to PFC 

^blankjbranch to BLANK 

Zero ByterOr 1 rSr3rMrSrbr7rarTr + f lr-tr^r = fComma?branch to ILL 



^ 



5.S.E BLANK 



FFLAG is set to NFLAG to cause a force upper if the last 
instruction was an unconditional jump. BLANK exits to OCSCAN- 



S.S.3 PFC 



FFLAG is set to +1 or ~1 for plus or minus in column one 
respectively. This indicates force upper or force lower to 
WRTEXT. PFC skips to the opcode field beginning in column 
threer places the first E characters in BE and B3 and transfers 
to FLVEC-1+BE to interpret the opcode. 



5.S.M PLABEL 



The label beginning in column I is separated from the line 

using the subroutine PACKID and saved in the location ALABEL 

for later definition. FFLAG is set to +1 to indicate forcing 
upper is required and PLABEL exits to OCSCAN. 



5. 5.5 OCSCAN 



Blanks between the label field and the opcode are skipped 
and the first two characters of the mnemocic are placed in 
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B2 and B3. OCSCAN exits by transferring to FLVEC-1+B2. 

5.5. b OPCODE RECOGNITION TRANSFER VECTORS 

Opcode fields are decoded by indexed jumps using succeeding 
characters of the mnemonic. Host instructions can be identified 
by examining the first two characters of the opcode field but 
for those that require further scanningr a vector for each of 
the thirdr fourth and fifth letters has been included along 
with the routine PNL which picks the next character from the 
input string and jumps back to the vectors- The vector exits 
that result from an executable instruction mnemonic will set 
X^ to an instruction prototype that is completed as the address 
field is processed. Other jumps that result from pseudo-ops 
and macro calls simply transfer to specific routinesr although 
in some cases the spare 3D bits in the last vector position is 
usedt 

5.b L3.RJ 

S.b.l This routine processes the RJ instruction. The address for the 
symbol is fetched from the two word symbol table using the REF 
subroutine and NFLAG is set to one indicating the next instructioi* 
is to be forced upper. 

5.7 L3.JP 

5.7.1 The JP may appear with on without a symbol in the address field 

but is always indexed by B 1 . If there is a symbol the subroutine 
REF is used to obtain its address. NpLAG is set to one and the 
routine exits to URTEXT. 

5.fi L3.XJP 

S.fi.l This routine processes the X register conditional jumps ZRr NZr 

PLr and NG. 'he register number is selected from the input string 
and REF is called to obtain the jump address before exiting to 
URTEXT. 

5.T L3.E(3 

5.^.1 The E(3 jump may be either conditional or unconditional. If 

unconditional no B register is specified or Bi will be the same 
as Bj- In this case REF is called to obtain the jump addressr 
NFLAG is set to one and exit is made to URTEXT. Uhen the two 
B registers present are different i and j are selected from the 
input stringr added to the prototype and REF is called for the 
symbol definition before the exiting to URTEXT. 

5. ID L3.B00L 
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S-ID-l For boolean instructions the iS-bit opcode is determined by 
examination of the address field- This is done by observing 
the first and second operators to determine the g and h fields 
and setting ir j and k from the input string. The exit is made 
to m. IS. 

5. I I L3.nX, L3.SH 

S.ll.I This routine processes the mask instruction and the four shift 
instructions. Here it is required to determine whether the 
shifts are nominal or constant r reset the opcode in the former 
case and set the i» j and k fields in both cases. The exit 
is to m. IS. 

S.IS L3.PUN 

S.lE-l The assembler must select and set the ir j and k fields for 
the packr normalize and unpack instruction. The exit is to 
m. IS. 

S.13 L3.ARIT 

S.13.1 The instruction for double and single precision floating point 
operations and the bD bit integer operations require only the 
selection of a mask from ARITAB using the operator character code 
as an index and OR it with the prototype in X^. This routine 
exits to L3.PUN to set the ir j and k fields- 

S-m L3.SET 

S.14.1 The increment unit instructions have the largest variety of 

address fields of any class of statements that are encountered 
by the assembler- This routine must determine the second digit 
of the opcode and the remainder of the IS or 3D bit instruction. 
The analysis begins by transferring into L3.JVEC using the first 
character of the address field as an index- This will cause a 
transfer to L3.S1 if the first character is an Ar Br or X to 
L3.Sliri if the first character is a minus signr to L3-S7 if the 
first character indicates a symbol or constant follows and to 
ILL otherwise. At L3.S1 a character-by-character scan of the 
input string is used to determine if the first item in the address 
field is a register name or a variable- For variables a transfer 
is made to L3.S7 to evaluate the address expression while for 
registers the h field of the opcode is adjustedr j is selected 
and included in the instruction and the scan continues after 
setting X7 to remember th^ sign unless the next character is 
a zero byte- If the next item in the string is a register name 
the opcode is further adjustedr k is selected and set and control 
is transferred to LH- IS. =Otherwiser a branch is made to L3.S7 
to continue the address expression analysis. At L3.Slinr X7 
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S. IS 
S. IS 



S. lb 



is set to indicate the pr^eceeding minus sign and control goes 
to L3.S7 where the subroutine EVAL is called to evaluate the 
symbolic address field. The routine exits to URTEXT with a 30 
bit instruction. 

L3.VFD 

The ypD pseudo-op routine translates data subfields one by oner 
packing the information into the item being constructed- Numeric 
and symbolic fields are converted using the subroutine EVAL 
while character string data is packed and formatted by the VFD 
routine itself. The data fields that can be successfully 
assembled are limited as follows^ 

1- The total of the bits that are specified in any one appear- 
ance of a VFD must be ISr 3D or bD» 

E. Relocatable fields must appear as the lower Ifl bits of the 
specified fieldr 

3. Character data must be Cr Hr L or R specification. 
PDIS 



S.lb.l The DIS routine moves the number of words specified from the 
line buffer to the current text table by calling URTEXT once 
for each word. 



S. 17 



PDATA 



S-17.1 The only type of DATA fieilds the assembler will encounter are 
single octal constants. They are converted to binary by the 
subroutine CONVERT and added to the current text table by URTEXT 

S.ia PBSS 

S.lfi-l The BSS routine first fortces upper by setting FFLAG to 1 arid 
calling URTEXT. The argument is converted to binary by the 
subroutine CONVERT and added to the ORG counter r then FOTEXT 
is called to write out thfe current text table and start a 
new one with the updated origin counter. This routine exits 
to NOBINPO to print the line. 

S.n PUSE-, USENXT-, USESTAR 

S.n.l The USE processor separates the relocation base name from the 
input string using PACKID and after determining whether it is 
common or local and selecting the correct portion of the EE 
word ORGTAB it calls the subroutine USENXT to change TEXT. ADD 
to this relocation base entry. USENXT makes a linear search 
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of either the CORGTAB or the LORGTAB until it finds the relocation 
base name. It then saves TEXT- ADD in the location USEBB and 
resets it to the address of the new ORGTAB entry and exchanges 
the contents of NFLAG with the contents of the second word in 
the table entry- USENXT is also called by some of the pseudo 
macro routines. USESTAR is called to change back to the previous 
block by resetting TEXT-ADD from USEBB and exchanging NFLAGS. 

5. ED PSET 

S.SD.l The SET pseudo-op is used by FORTRAN to establish an address 
of the source data for a REPI pseudo-op to follow- Hence it 
appears as ^Sa SET m"^ only. The subroutine DEF is called to 
redefine Sa to the current origin counter after forcing upper. 

S-Sl L3-0RG 

S-Ei-1 The ORG instruction requiresr after evaluation of the address 

field by EVALr the relocation base to be changed and the origin 
counter in the new base to be reset- The subroutine FOTEXT is 
used to force out the old text table and start a new one with 
the correct origin counter- 

B.'EE PriACRO 

S.SS.l The assembler skips over macro prototypes by changing the word 
at START to an ^E(3 PMACE^ and returning to NOBINPO when a macro 
pseudo-op is encountered. This causes al 1 future statements 
to transfer control to PMACE which checks for the ENDM command 
and restores the contents of START for normal processing. PflACE 
always exits to NOBINPO to print the line. 

S.E3 PADDSUB 

5-E3.1 PADDSUB processes the address substitution macror ADDSUB. This 
macro will be called by t|-ie program being assembled only oncer 
in the event that it is a subprogram having parameters. After 
calling USENXT to change to the YABJLLH. relocation block, its 
prototype at ADDSCr except for the last word, is written on the 
LGO file by URSE(3. The last word will be 3D bits if MACHINE ¥ 
bbDDB, and bD bits if nACHINE=bbDDB; it is written on the LGO 
file by URTEXT. The correct relocation byte is addedr and 
USESTAR is called to change back to the previous relocation block- 
Exit is to INITL. 

The prototype is set to execute at a location specified by the LOC 
pseudo-op which just precedes itn its address field should be set 
to the address of the first word of the VARDIM . relocation blockr 
which will be the same for all subprograms- 
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S-S3.S The macro prototype is^ 

ADDSUB MACRO FP 

USE VARDIM, 

SBM 1 

SA3 FP-I 

nXD HE 

SBb bO 

NO 
Bl SA3 BM+A3 

SB? XI 

SAl AI+BM 

SA2 X3 
A> UXM X3,B2 

SB3 Aa 

LXM ME 

SBS Bb-BE 

SA3 A3+BM 

LXE BErXa 

SXS XM+B7 

BXM XDmXE 

SAE X3 

BXb -XOnXS 

1X4 Xb+XM 

LXb BSrXM 

SAb B3 

NZ X3rA> 

NO 

NZ XlrB> 

JP M+1 

USE M 

ENDd 

S.EM PSUB 

S.EM. I PSUB processes the SUB macro. This macro is called by the pro- 
gram being assembled after it encounters a reference to a forma 
parameter. The form of the call is 

SUB FPrK 

where the comma and K may be missing and the form of the result- 
ing entry is 



ST S7 


sb Ma 


M7 




la 


17 




D 


S 


pose 


K 


ORGC 



Entry is made into the FP relocation block. 
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S.E4.E PACKID is called to strip the block name ZEr which is left in 

position for the subsequent call to USENXT- The position counter 
-EPOSO and the origin counter -CORGC> are extracted from the 
current block and saved in B registers. USENXT is called to 
change to the fP_ block- Returningr FFLAG is set to 1 to force 
upper and the position counter is converted from FTNXAS form 
to COnPASS form. Now the sub list entry will be formedr 
starting with the origin counter. Bl contains the delimiter 
left by PACKIDf and if non-zeror the constant is converted by 
CONVERTf shiftedr and ORed into the entry. Lastlyr the position 
counter is packed into the entry and URTEXT is called to write 
the entry on the LGO file. The correct relocation byte is 
addedr and USESTAR is called to change back to the previous 
block. Exit is to INITL. 

S.EM. 3 The macro prototype is= 

SUB riACRO FPrCON 
.PCS SET ST-^ 
• ORG SET ^-^/5'=] 

USE FP 

VFD 3/E,i/.P0S,3D/C0Nr Ifi/.ORG 

USE M 

ENDn 

5.ES PDELAY 

S.SS.l PDELAY processes the DELAY macro. This macro is called by the 
program being assembled if it is necessary to call SUB twice 
in the same word for the same formal parameter. The form of 
the cal I is 

DELAY FP 



and the form of the resulting entry is 



3D 



E] 



where SX- is the address of the start of the sublist table. 
Entry is made into the £R block. 

S.2S.E PACKID is called to strip the block name £Er and USENXT is 
called to change to the ZE block. SYMBOL is then called to 
obtain the address of SX- t which is shiftedr marked offr and 
packed with the 3D field. into XM. URTEXT is called to write 
the entry on the LGO file. The correct relocation byte is 
addedr and USESTAR is called to change back to the previous 
block. Exit is to INITL. 
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S.E5.3 The macro prototype is- 

DELAY MACRO FP 
USE FP 

VFD 3/2,^/30,30/0, Ifi/ST 
USE « 



ENDU 



S-Eb. 1 



PFILE 



PFILE processes the FILE macro. This macro is called when a 
main program being assembled wishes to set up a FET and buffer 
for a file. It uses two prototypes, which are formatted as 
fo 1 lows: 



1> 



FET prototype : 
3L 



FILEC 



1 


1 1 




IB 


FIRST 




IN 




OUT 




LIMIT 


1 



E> REPI prototype = 



ST s^ 


S3 




E7 


Eb 





M3 


E 


1 




FUA OF ZEROS 1 


131 1 



ST 



^2 m 



Ifi 17 







S.Eb.E CONVERT is called to convert the buffer length to binary. The 
origin counter is obtained, placed into the FIRST, IN, and OUT 
fields of the FET prototype at FILEC, and the buffer length + 
origin counter is placed into the LIMIT field. Since the zero 
word which is the sixth word of the FET must be repeated 13B 
times, its address is placed into the second word of the REPI 
prototype. The new origin counter is saved in PFILEC, and URSE(3 
is called to" write the prototype on the LGO file. FOTEXT is 
then called to force out the current text table so that th^ 
REPI table can duplicate the zero word. Then the origin counter 
is reset to the value saved in PFILEC, and URUDSS is called to 
write the REPI table on the LGO file. Exit is to INITL. 
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S.2t>.3 The macro prototype is* 

FILE riACRO LNrNAME * 

ENTRY NAHE-* - 
NAHE-) - BSSZ IB 
IN^ SET NAnE->. 
LG^ SET LN+1 

VFD ib/lrEb/lE,ia/IN^+17 

VFD bD/IN$+i7/bD/IN^+l7 

VFD bD/IN^+l7+LG$ 

BSSZ IHB 

BSS LG^ 

ENDn 



5. 27 



PNAHE 



S.E7-1 PNAHE processes the NAflE macro- This macro is called by the 

program being assembled when a NAtlELIST string is to be defined. 
Processing takes place in, two phases^ 1> strippingr partially 
processingr and saving the actual parametersr and E> forming the 
required binary output and writing it onto the LGO file- The 
format of the call is: 

NAUE NrT,BASE,BIASrFP,DlrDErD3 

where N and T are always present r and the rest of the string may 
be entirely missing. In addition* BASE and BIAS may be con- 
currently missingr and the following combinations of the D fields 
may be missing: Dir DEr D3; DEr D3; D3. 

5.E7.E Phase 1 begins by setting the locations from NNAHE to Z3Nf which 
will contain information derived from Phase 1 processing of the 
actual parameters! to zero. REF is called to obtain the NAHE— 
LIST name -CN>r which is saved in NNAflEr and its addressr which 
is stored in VNAME. CONVERT is called, which converts the 
NAUELIST type -[T>r and this is stored in TNAIIE. At this point 
a test is made to see if the next character is a zero byte- If 
it isr then there are no more parameters and transfer is made 
to phase E at PNAHEM. Otherwiser a check is made to see if the 
BASE field is presentr andr if it isr then the base is stripped 
by REF and stored in BASN and the bias is stripped by CONVERT 
and stored in BIASN- Then CONVERT strips the FP fieldr if 
presentr and it is stored in FPN. At this point CONVERT is 
called to strip Dlr DEr and D3 until one is found missing or al 1 
three are stripped, and they are saved in ZlNr ZENr and Z3Nr 
respectively. If all three fields are missing, ZZN is left at 
its initial value of zero, otherwise it is set to one. Phase E 
at PNAMEM begins by getting the NAUELIST name from NNAME, 
changing the trailing blanks to zero characters, and calling 
URTEXT to write onto the LGO file a word in the following format: 
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ST 


HE D 


D 


NAME 



If the BASE and BIAS fields were present r they are added together 
to form the address for the next word; otherwise the NAMELIST 
address from VNAflE is used. This address and the NAIIELIST type 
from TNAflE are written on the LGO file in the following format: 



ST SH S3 



3D ET 



1 


ADDRESS 


TYPE 



Now if FPN is not zero, it indicates that a sublist entry must 
be made for the address just written^ USENXT is called to chan^j 
to the formal parameter block specified by NNAHE and a sublist 
entry in the following format is written onto the LGO file by 
URTEXT: 



ST S7 Sb 



Hfi H7 



D 



s 


ST 


VNAflE 



Then USENXT is called to change back to the DATA - block. The 
last word is written onto the LGO file by URTEXT in one of the 
following four formats, depending on the presence of Dl, DE, and 
D3: 

13- Dlr DSr and D3 present: 





ST SH 


S3 3b 


3S Ifi 


17 







D 


Dl 


DE 


D3 


E3- 


Dl and DE presentr D3 missing 


: 






D 


D 


Dl 


DE 


3> 


Dl present, DE and D3 missing 


■ 






D 


D 


D 


Dl 


H> 


Dl, DE, and D3 missing: 








1 


D 


D 


1 



Exit is to INITL. 
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S.E7.3 The macro prototype is^ 

NAHE HACRO N ,T, BASErBIAS , FP , Dl, DE, D3 

LOCAL ZrZl,ZErZ3 

VFD lfi/DrHS/DL-> N 

VFD b/lrb/D 

IFC NEr^BASE^^rl 

VFD Ifi/BASE+BIAS 

IFC E(3,^BASE^^,i 

VFD Ifi/N 

IFC NEr^FP^^rl 

SUB N 

VFD 3D/T 

IFC E(3,$D1^^,1 

Z SET D 

IFC NEr^Dl^^rl 

Z SET 1 

IFC NE,^D3$^r4 
Zl SET Dl 
ZE SET DE 
Z3 SET D3 

IFE(3 Drl 

IFC NEr^DE^^rH 
Zl SET 
ZE SET Dl 
Z3 SET DE 

IFE(2 D,l 

IFC NEf^Dl^^rM 
Zl SET D 
ZE SET 
Z3 SET Dl 

IFE(3 D,l 
Zl SET D 
ZE SET D 
Z3 SET 1 

ENDIF 

VFD b/Z,ifi/Zl,lfi/ZE, ia/Z3 

ENDn 

S.Sa PENTR 

S.Efi-l PENTR processes the ENTR. macro- This macro will be cal led 
by the subprogram being assembled when an entry point other 
than the main entry point is to be provided- Although there 
aPG two types of ENTR- macro expansions possibler depending 
upon whether a subprogram has formal parameters or notr the 
expansion throughout a particular subprogram will be cons i stent r 
and a jump to the particular processor required will be stored 
over a word of NOP-'s located at the beginning of the initialization 
Phaser at PENTRl- Thusr the first call to PENTR. will fall 
through PENTRl and execute the initialization phases subsequent 
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calls will be directed to the appropriate processor at PENTRl. 
The format of the call is 

ENTR. NAHE 
ENTR. macro prototype with arguments^ 



ST 



^^ 



17 



1 


SAE 


■C«+2]- 


BXb X2 1 NO 


SAb 


-CFTNNOP.J " 


E(2 {ENTRY. + !> 


E(2 


-Cm+i> 


NO 1 NO 


SAl 


■CNOPS.} 


SAE -CNAIIEl 


BXb 


XI 


LX7 X5 


SAb -CFTNNOP.} 


SA? 


^PTR^> 


NO 1 NO 



D Word 



ENTR. macro prototype without arguments = 



5^=] 













D 


SAl 


■LNAME]- 


BXb XI 


NO 


SAb 


-CENTR.l 


NO 


NO 



Word' 
1 
E 

3 



Parentheses indicate values to be substituted. 



CA 138-1 REV tO'67 



CONTROL DATA CORPORATION 



DIVISION 



DOCUMENT CLASS. 
PRODUCT NAME — 



ins 



FORTRAN Extended Version S.Q 



PAGE NO. 3t3.E7 



PRODUCT MODEL NO. BPCDfi 



MACHINE SERIES bH/bS/bbOD 



S.Efi.E REF is called to get the address of NAHE and it is stored in 

ENAHE. If this is not the first time throughr PENTRl transfers 
to PENTRb if the subprogram has argumentsr or to PENTRfi if it 
does not. Otherwiser initialization begins by testing word A 
of the second symbol table entry to see if the FP bit is set^ if 
it is notr then there are no formal parameters and after setting 
a jump to PENTRfi into PENTRlr control is transferred to PENTRS 
to complete the initialization for this case- Otherwise there 
are parametersr and the jump at PENTRl is set to a jump to PENTRb^ 
^iiiDvu 1 a <;_diieu tu yet tne aaaress ur iMvrvi-r wn i en is savea in 
ANOPS; FTNNOP-r which is saved in AFTNN; and ENTRY., which is 
saved in AENTR. Control is then transferred to PENTRl to jump 
to the proper processor. At PENTRSr initialization for the no 
parameters case continues as above with the calling of SYMBOL 
to save the address of ENTRY, in AENTR- PENTRb is the start 
of the processing for a call to ENTR- in a subroutine with 
arguments. The origin counter is obtained to form a base for 
the self-relative substitutions in the macro prototype, and a 
jump around the entire macro expansion is formed and left in XH. 
Then the following substitutions are made: 

1. ORGC+M --^ upper address of word E 

E. ORGC+S — > upper address of word ^ 

3. FTNNOP. — Slower address of word b 

4- FTNNOP. — >upper address of word 3 

5- ENTR.+l —^ lower address of word 3 

b. NOPS. — Supper address of word 5 

7. NAME ^ lower address of word S 

a. ENTR. —^ upper address of word 7 

Now the jump in XH is sent to the LGO file by URTEXT, and URSEi3 
is called to write out the entire prototype onto the LGO file- 
Exit is to INITL. PENTRfi is the start of the processing for a 
call to ENTR. in a subroutine with no arguments. The origin 
counter is obtained and a jump around the entire macro expansion 
is formed and left in XM. Then the following substitutions are 
made- 

1. NAflE ^ upper address of word E 

E. ENTR. ^ upper address of word 3 

Now the jump in XM is sent to the LGO file by WRTEXT, and WRSE(3 
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is called to write out the entire macro expansion on the LGO 
f i le. Exit is to INITL- 

S-Efi.3 The macro prototypes are- 

ENTRr MACRO NAflE 
LOCAL X,Z,T 
E(3 T 
NAME BSS 1 

ENTRY NAME 

SA2 X 

BXb XE 

SAb FTNNOP. 

E(3 ENTRY. + 1 
X E(3 Z 
Z SAl NOPS. 

SAE NAME 

BXb XI 

LX7 BDrXE 

SAb FTNNOP, 

SA7 ENTRY. 
T BSS D 

ENDfl 

when formal parameters appear or: 

ENTR, MACRO NAME 

LOCAL T 

E(3 T 
NAME BSS 1 

ENTRY NAME 

SAl NAME 

BXb XI 

SAb ENTRY. 
T BSS D 

EN DM 

when formal parameters do not appear. 
S.E^ EVAL 

S.ET. 1 This subroutine is used to evaluate address expressions con- 
sisting of octal constantsr symbols and the operators + and - 
It must be entered by a return jump to EVAL with: 

B3 = XI = the first character of the express ionr 

Xb = plus or minus zero indicating a preceding minus 
■Cor imp I ied p lus> r 
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5-30 



X7 = any previous address sumr 

BE = bit count of the character in XI. 

EVAL returns with the expression value in X7 and it has been 
added to X^f. 

REF 



c Tin 1 prp ;« ..»^^ 4-^ ^U4--.:>> *.u^ :.._i j_ -jj -^ -^ _ ...i _ i 

o--i<->>jj iNi-i I o uocu ow yjuuam urit: eu|u i vca l bin u dUur'bfid^ uT any SymDU 1 Op 

label encountered during the assembly process. This routine 
is entered with a return jump to REF with the symbol name in 
Xlr the first character in B3 and the bit count of XI in BE. 
If the name begins with either of the special characters =r 
-CrOr> then its equivalent address is obtained from the gen-^ 
erated label r actual parameter or variable dimension label 
definition table respectively by converting the coded index 
in the label to binary and indexing into the proper table with 
it. Otherwiser the subroutine PACKID is used to separate the 
label from the input string and format it left justified with 
blank fill in the lower 45 bits of XI in preparation for call- 
ing SYHBOL or LABEL. If; the symbol i s an external namer X3 
is set to zero -[relative address! and the exit is made. If 
not externa I r word B of the symbol table entry is stored in 
RBTEMP unless it is already non-zeror in which case it is '. 
cleared to zero, the RA field is separated to X3 and the exit 
is made. 

S.31 CONVERT 

5-31.1 A display coded octal number which may be preceded by a 

minus sign is converted to binary. The first character 
of the constant must be placed in the lower b bits of XI 
before the return jump entry. On return the converted value 
is in XI. 

S.3S PACKID 

5.3E.1 This subroutine is used to separate identifier names from the 
input string. It will pack up to eight characters until a 
zero byter +r -r / r blank or comma is encountered. The 
character string is left justified and blank filled in the 
lower Mfi bits of XI. The character that served as the 
delimiter is preserved in Bl upon exit- 

5.33 URSE(3 

5.33-1 URSE(3 writes up to 15 words of data with relocation information 
into the current text table. The calling sequence is: 
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AH = first word address of text blockr 

XM = first word of text blockr 

X7 = left justified H bit relocation bytesr 

RJ URSE(2. ; 

S.3H m.JS, WRTEXT 

S.3M.I L3.1S is an alternate entry to URTEXT used when a IS bit 

quantity is to be written. URTEXT builds and writes text tables 
for the loader from the instructions and data the assembler 
produces- The calling sequence is* 

XH = data to be writtenr 

Bl = bit count of -datar 

Bb = return addressr 

E(2 WRTEXT. 

URTEXT forces upper when it is required by data size or 
the FFLAG is greater than zero. It also maintains the 
position counter and the origin counter for each relocation 
base and adjusts the relocation byte word in the text table- 
If the switch at URTSU has been set WRLIST will be called 
to print the I ine- 

5.35 FOTEXT 

5.35.1 This subroutine is entered by a return jump. It terminates 
the current text table by forcing upperr installing the word 
count in word 1 & left justifying the data bytes in word E- 
The text table is then written on the binary output file. 
Before returning a new text table is initialized with the 
origin counter in word I. 

5.3b URLIST 

5.3tj.l This subroutine is responsible for producing the assembly 
listing. It is given the binary to printr if anyr and the 
current source statement in ILINE- If the position counter is 
bO the origin counter and the current relocation base name 
are also printed- If RBTEflP is non-zero the relocation base 
name of the address field will also be printed. 

5.37 m. CKLr DEF 

5-371 After a statement has been decoded and the binary added to the 
text table these two subrouteines are used to define the label 
that appeared on the statement if any. The pseudo-ops DATA 
and VFD result in transfer of control to m.CKL but BSS calls De' 
itself. At m.CKL DEF is called if the contents of ALABEL are 
non-zero and control is passed to LH.CKRB- DEF looks up the 
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symbol whose name is in XI on entry in the two word symbol 
table using LSTPROC For the label it then sets the RA field 
to the origin counterr the RL field to 1 if the current block 
is local r for common the RL field is set to E and the RB field 
to the ORGTAB ordinal for the block the symbol is defined in. 
Before the return location ALABEL is cleared to zero- DEF is 
disabled by the USE processor which stores an ^ECS DEF^ in 
DEF.l after the second ^USE CODE-^ 



c - qfl 



S-3a.i Any 3D or bD bit quantity that has been generated may have a 
relocatable address in the lower Ifi bits- In this case 
RBTEnP will reflect this by having been set to word B of the 
two word symbol table ehtryr otherwiser it will be zero. If 
RBTEUP is non-zero the RL field is examined to determine the 
type of relocation necessary. Program relocation requires the 
relocation byte word in the current text table have a E added 
to it and RBTEUP be set to zero. 

A common or external reference requires a data byte for the 
loader be created and linked into the reference chain corres- 
ponding to the variable. For common the starting address of 
this chain is located in the lower Ifi bits of the first CORGTAB 
word for the entry that corresponds to the common block in 
which the variable is defined. This word is located at 
-[CORGTAB> + RB«SS. The external reference chain begins in the 
lower Ifi bits of the LINKTAB entry that contains the variable 
name. The RA field of RBTEHP contains this address- The new 
one word link is taken at the address contained in FREEflEHf 
which is incremented by one and compared to the contents of 
riEriEND and replaced. If FREEHEn is greater than MEriEND working 
storage has been exhausted and the error routine STOVER is 
called. Otherwise RBTEilP is cleared and m.CKL exits to INITL 
to prepare for the next line- 

S.3T ILL, SILL-, STOVER 

5.3^.1 ILL picks up the message ^ILL^ transfers it to location ILL- 1 
which stores the message in LINE+3f sets ILLFLAG to non-zeror 
calls URLIST to print the message and the source image then 
exits to INITL to prepare for the next statement. 

S.3T.E SILLr where control is transferred in the event LSTPROC cannot 
find a symbol name in the two word symbol tabler picks up the 
message ^SYHBOL ERR^ and transfers to ILL . 1 . 

S.3T-3 STOVER is called when all available working storage has been 

used. The first time this occurs the message ^STORAGE OVERFLOUt 
NO OBJECT PROGRAM UILL BE PRODUCED^ is printed. The size of the 
overflow is added to the contents of location STOVSIZE and 

FREEMEn is reset to the contents of HEflSTART- The exit is to 
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INITL- 
S.MD PEND 

S.HD.l Control is transferred to PEND when the END pseudo-op is 

encountered to clean up the assembly process and terminate- 
The following tasks are performed to accomplish this! 

1- If the contents of STOVSIZE is not equal to zero the 

size of the overflow is calculated and printed with the 
message ^ INCREASE FIELD LENGTH BY XXXXXX^ and exit is 
made as if ILLFLAG was non-zero. 

E. If the contents of ILLFLAG are non-zero the following 
steps are taken before exiting: 

a- An end-of-record is written on LGO, 
b- LGO is backspaced one logical recordr 

c. A prefix table with the program name is written on LGO, 

d. Control is transferred to EX.^D to do another end-of- 
record write on LGO, print the END pseudo-op and return 

3. All partially filled text tables are forced out on LGO 
from CORGTAB and LORGTAB by calling FOTEXT once for each 
relocation base- 

H. The accumulated common and external reference information 
is formed into FILL and LINK tables respectively and 
written on LGO. This is accomplished by following the 
chain that begins at the CORGTAB and the LINKTAB entries 
for common block and external symbols and packing the 
data bytes which are the upper 3D bits in each link into 
the correct table formats- The COHPS buffer is used as 
scratch memory for this purpose. 

5. An XFER table containing the date and the transfer symbol, 
if presentr is written on LGO. 

b- The LGO buffer is cleared out and the relocatable deck 
terminated by doing an end-of-record write on LGO. 

7. The last statement of the program -Cthe END Pseudo-op> is 
printed by calling URLIST- 

6. lOPARM is reset to mB to cause output to be in BCD moder 
ILLFLAG is cleared- 

'=\. The assembler returns thru its entry point to DPCLOSE in 
Pass E for the H overlay and the non-overlay systems or 
to FAXRET in DPCLOSE in Pass E for the 5 overlay system. 
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ta.D Data Formats 

Uorking storage during the assembly process 



CORGTAB 
-[PTR3- 



LORGTAB 
-[PTR3- 



LINKTAB 
•CPTR> 



riEIISTRT 
-CPTR> 

FREEHEH 
-CPTR> 

tlEriEND 
■CPTRl 



VDTAB 
-CPTR> 

APTAB 
^:PTR> 

GLTAB 

■CPTR> 
SYMEND-' 

-CPTR> 



SYni 
■CP 



COflHlLLK 



LGO BUFFER 



CORGTAB 



Zr.RO yORD 



LQRGTAB 



ZFRQ lilQRI? 



LINKTAB 



zr.^9 y<^Ri} 



RA 



COnnON AND EXTERNAL 
REFERENCE CHAINS 




"^ 



VARIABLE DiriENSION 
LABELS 



ACTUAL PARAHETER 
LABELS 



GENERATED LABELS 



ZERO UORD 



TWO WORD 
SYMBCL TABLE 



FL 
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b.l 



E2 Uond ORGTAB ILORGTAB and CORGTAB> 



b-l-l These two tables have the same format- They contain a EE word 
entry for each relocation base that will be encountered by 
the assembler. COnnON relocation bases are entered in the 
CORGTAB and local relocation bases are entered in LORGTAB- 
Each 22 word entry is formatted as follows* 



ST 



17 



WORD 1 



BLOCK NAME 


PTR 


NFLAG 




LCT 


ORGC 




pose 




TABC 


TEXT TABLE ID UORD 


TEXT TABLE RELOCATION 
BYTE UORD 


FIRST TEXT WORD 


TEXT 
-CUNINITIALIZEDl 



EE 
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UORDi: Bits Ifi-S^/Rs 1 ocat ion base namer left adjusted with 

blank fil Ir 

Bits D-17/Pointer to Fill chain fop COfinON blocks; 

unused for locals- Initialized to zero in 
both cases. 

UORDS: Bits D-S'^/NFLAG -Cforce upperr next instruct ion> r 

initialized to zero- 

UORDB: Bits EH-S^/Unused, 

Bits lfi-B3/Relocat ion base code- This is 1 for 

all local blocks and may be 3 to 77B for 
common blocks- It serves as the LCT 
ordinal for the loader. 

Bits D-17/Origin counterr initialized to the first 
word address of the block. 

ts Ifi-S'^/Unusedr 

ts D-17/Pos i t ion counter? initialised to bD- 

ts la-S'^/Unusedr 

ts D-17/Test table ordinal indicates the current 
word being filledr initialized to E- 

ts SM-ST/Text table code number, ^DBr 

ts 3ti-M7/Uord countr initialized to zero, 

ts lfi-E3/Relocat ion code, 

ts D-17/Load address, initialized to ORGC, 

ts D-ST/H bit relocation fields, initialized 
to zero- 

ts D-ST/In it ial ized to zero. 

-be: Bits D-ST/Uninitial ized- 



b.E 

b-E-l The LINKTAB consists of one one-word entry for each externa 
symbol used in the program being assembled. The last 

entry is a zero word- Each word is formatted as below. 



UORDM: 


B 




B 


words: 


B 




B 


UORDb: 


B 




B 




B 




B 


U0RD7: 


B 


UORDfl: 


B 


WORD^-EE: 


LINKTAB 
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ai 



e 



A 



MHL. 



PTR 



b.3 



b.a-i 



where NAME is the external symbol namer left adjusted with 

zero fill and PTR is the start of the reference chain that 

describes the usage of the symbol. PTR is initialized to 
zero. 



LINK and FILL chains {external 
t ion> . 



and common reference informa- 



One chain exists for each common relocation base and external 
symbol. They are linear linked lists of one word elements 
containing in upper 30 bits a data byte for the loader and 
in the lower Ifi bits a pointer to the next link. Each list 
is terminated by a zero pointer. The elements of these lists 
are taken from working storage beginning above the LINKTAB- 
FREEHEM always points to the next available word in this 
area- Following is the format of each link- 



ST 



sa 



Sb 



H7 



ET 



17 



D 



RL 



LOC 



UNUSED 



PTR 



b-M 



b.H.l 



b.S 



where LOC specified the relative address of the referencer RL 
specifies the relocation of this addressr POS the position 
in the word and PTR points to the next link in the chain. 

Actual Parameterr Variable Dimensionr and Generated Label 
Definition Tables- 

Upon entry these tables contain in the lower Ifi bits the 
address relative to the origin of the Code- relocation base 
t APr 3 VD or =GL labels. They are reformatted during 
initialization and take the following form during assembly. 



51 



35 3 b 



ZERO 



M. 



RA 



11 



ZER 



D 

3 



where RA is the program relative address of the label- 
TWO UORD SYMBOL TABLE 



b.S.l During initialization of the assembler and during assembly 
before the second ^USE CODE.^r word B of the two word symbo 
table entry for each symbol is reformatted as follows^ 
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ST 


3fi 


3b 




Ifi 


11 


D 




RL 


RA 


RB 





where RA is a program relative or common block relative 
address op a pointer to the LINKTAB entry that corresponds to 
the external symbol, RL is the type of relocation -CDl=programr 
DS=COnnONr D3=EXTERNAL3- and RB is an ordinal to either the 

rORGTAR on I ORGTAR e>rti:nKf iiih t <-h r-onnocnnnrlc; -f- n t-ho r»o I r^/- ja+- i nrs 

base in which the symbol was defined. 

7-D Modification Facilities 

7-1 Assembly Options 

7.1-1 Opt ions File 

1. OVERLAY. When set to a non-zero value this option 

causes a non-overlay compiler to be generated. This has 
two effects on the assemb ler = -Cl> nEHORYr the first word 
address of working storage must be set to the end of the 
compiler rather than the end of the assemblerr and -CE} 
several flags and switches in FTNXAS and in LSTPROC must 
be reset to the ir ; in it iai value upon exit since the same 
copy of the assembler will possibly be used again. 

E- riACHINE. This option, which is set to either bMDOB or 
bbDDB, causes the ADDSUB flacro to be expanded with a 
dP 1^ + 1 in the last two parcels if set to tbDDB. 

3. LGOSIZE. The assembler will allocate LGOSIZE+1 words 
for the binary output buffer. 



ASSEilBLE. The assembler will produce a LCC overlay 
-[FTNX, 1, 3> card and a transfer address of FTNXAS^ 
will return to FAXRET in close S via a direct jump. 



and 



7.1.E DEBUG ETC. 

This opetion and several assembly flags which ars normally 
equated to itr control debugging aids that have been left 
in the assembler. The normal value of DEBUG is zero, however 
setting it to 1 and reassembling will cause -Cl> SNAP calls 
to be inserted at strategic points, -CEl- ORG and MOVE macros 
not to be expanded, and -C3> the last few words of L3.JVEC 
to be assembled in. The SNAP routines must be available 
when DEBUG is non-zero. 

7.E Opcode Vectors 
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7.E.1 Opcode fields are decoded by the assembler by placing the 

first two characters of the field in index registers BE and 
B3 and jumping to BE+fLVEC-l. If the opcode can be uniquely 
recognized from the first two lettersr an exit is made to 
the correct routine for processing the address field. _ 
Otherwiser the address of a further vector is placed in BB 
and the subroutine PNL is called to separate the next 
character from the input stringr add it to BE and jump to the 
contents of BE- New entries and new vectors can be placed 
anywhere in the existrng general schemer but care must Be 
taken to insure that a valid vector entry is not within the 
range of an ORGSTARTr ORGEND pair- Also, each unused word 
in new vectors should contain an ^ EQ ILL^ and each block of 
two or more unused words should be surrounded by ORGSTARTr 
ORGEND macro cal Is- 

7.3 niCn ORG-, MOVE Macros 

7.3.1 niC creates a micro with the name equal to the second para- 
meter. It will be a character string representing the value 
of the first parameter. Thusr after 



N 



SET 



^E3 



niC NrZ 
the catenation k ^ Q. ¥ Z ¥ would equal ABC4E3 



The purpose of the move macros are. to allow the definition 
of unused areas in the assembler, of areas of code which 
can be moved, and the- moving of the code into the unused 
areas at assembly time. 



The unused areas 
callsr which bu i 
of unused areas, 
areas of code wh 
and nOVEND macro 
relocation of th 
in which it will 
the usage. If a 
taken. Changes 
nOVSTARTr nOVEND 
parameter or an 



are. bracketed by ORGSTART and ORGEND macro 
Id tables of lengths and first word addresses 

After the last ORGEND macro callr the 
ich can be moved are bracketed by HOVSTART 

calls. Each pair of calls result in the 
e associated code into the smallest area 

fit. The tableis are adjusted to reflect 
11 unused areas are too small r no action is 
in the size of a code block bracketed by 

must be reflected in the nOVSTART call 
ERR pseudo-op will be produced. 
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ORGTAB 

1-D General Information 

ORGTAB resides in the 1-D overlay which also contains 
LSTPROC the symbol table handler- ORGTAB contains entry 
points to hold the local and common relocation block lengths 
It also contains a copy of lilRUDS the output and circular 
I/O buffer control program- 

E-D Usage 

The length of al 1 common relocation bases and all local 
relocation bases -Cexcept CODE- and V ARDIH. wh ich are de- 
termined during Pass E by POST and CLOSE VE> is determined 
during Pass 1 -Cthe Irl overlay^ and retained in ORGTAB for 
use by the assembler at the end of Pass E- 



r75B locations to hold lengths of all possible 
common relocation blocks- 

rholds length of START- relocation block- 

rholds length of VARDIfl- relocation block- 

rholds length of ENTRY- relocation block- 

rholds length of CODE- relocation block- 

rholds length of DATA- relocation block- 

rholds length of DATA- relocation block 

rholds length of HOL- relocation block- 

rholds address of EGL label definitions. 

rholds address of l^P label definitions- 

rholds address of ]VD label definitions- 

r ho Ids the number of words needed for 
optimizing temporary storage - 

E.1.13 NDOTEnP rholds the number of words needed for 

DO loop temporary storage- 

In addition to facilitate the non-overlay configuration 
the following entry points have been moved to the IrD 

C A 138- » REV 10-67 



E-1 


Entry Points 


E-1-1 


ORGTAB 


E-l-E 


START/s 


E.1-3 


VARDIMa 


E-l-M 


ENTRYa. 


E-l-S 


CODE^ 


E-l-b 


DATA A 


E-1.7 


DAT AAA. 


S.l-fl 


HOLa 


E.l.=^ 


GLTAB 


E-l-lD 


APTAB 


E-l.ll 


VDTAB 


E-l-lS 


OT.SIZE 
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overlay. CARDCTr ENDLIST, ENDSEdJ, FUAUORK, LUAUORK, 
HIGHORD and FWASEcS. 

3-D Diagnostics 

Not app I i cable. 

4.D Environment 

ORGTAB resides in the IrO overlay. The only executable 
code is the output and buffer control program WRUDS which 
i s se I f cont ined. 

S-D Structure 

initialized easily between compiling subprograms. 

b.O Formats 

The common block information is held starting at ORGTAB 
in the following manner" 



Common Block Name 



Uord I 
Length I 



H2 Ifi 

The last common block name is followed by a zero word. 

The local block lengths are held in the lowest Ifi bits 
All lengths are in binary. 
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R-List Language Description 

R-list is an intermediate language which is intended to be both 
easy to generate and convenient to produce good assembly code from. 
The language is register independent as much as possible; there 
shall be a provision for specifying specific registers. A limited 
macro facility shall be provided to facilitate the generation of 
frequently occuring code and reduce the size of the intermediate 
R-list. Generally the operation code in R-list will correspond 
to the operation code of the associated machine instruction. 

1. General Description 

There are four formats for R-list instructions to permit maximum 
description of the operation requested in the minimum am.ount of 
space. The formats are shown in figure one. In all cases the 
following definitions will hold. 

First word will have the same format: 

Bit 59 = 
Bit 58-1 
Bit 47-57 = Operation Code (OC) 

It is formed by placing the operation code in a B register and 
appending it to the rest of the information in the first word 
of the R-list instruction by using a PACK instruction. Any 
negative words encountered in the R-list will be ignored. 

1.2 R Fields 

All R fields will be sixteen bits long. All R fields generated 
during pass one will have the high order bit equal to zero; in- 
termediate R's resulting from macro processing will have that bit set 

1.2.1 RI Fields 

RI indicates the result of the operation indicated by OC or an 
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operand of a branch instruction. This field will always be rightmost 
in the first word whenever it occurs. 

1.2.2 RJ Fields 

These fields indicate the first operand of a triple address instruction. 

1.2.3 RK Fields 

These fields indicate the second operand of a triple address instruction. 

1.2.4 RF Fields 

These indicate the index function to be added to a base address or may 
be used to indicate an operand of a branch. 

1.3 CA Fields 

CA fields are eighteen bits long and usually contain the constant addend 
to be added to the reference to an array element. They may also contain 
some other constant. 

1.4 I and H Fields 

The I field is twelve bits long and identifies the table for which H 
is an ordinal. The HI field is eighteen bits long. The defined values 
for I are as follows: 

= Symbol Table 5 = APLIST ordinal 

1 = Statement Temporary 6=1 Branch if label 

2 = DO Range temporary 

4 = Conlist ordinal 

If the Hi field is negative or zero both I and H will be ignored. If the H2 
field is non zero, it is interpreted as an ordinal in the symbol table 
and the final symbol generated will be H1-H2. All HI are interpreted as 
ordinals in the list specified by I. 

1.5 IN Field 

IN fields are eighteen bits long and contain constants. 

1.6 SO Fields 

SO fields are fourteen bits long and modify the operation code. 
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The high order bit of the SO Field is used only in macro descriptions. The 

next two bits specify respectively, a sequence terminating and unlocking 

instruction, a locking instruction. A locking operating reserves a register 

for the RI of the operation, this reservation holds until an instruction with 

the next to high order bit in the SO field is encountered. The next bit is 

set to indicate a register specification is not to be held until the end of 

a sequence. The low order two petal digits are used to specify a class of 

registers or a particular register. The right hand two bits specify a 

re°"ister class as follows; 

1 - X 

2 - B 

3 - A 

If the next bit is set the other octal digit specifies the particular 
register of the class. This specification stipulates which register the 
RI of the instruction is to be placed in, i.e., the destination registei; 
of the operation. Currently only X's and B's may be specified as des- 
tination and the particular one must be stated, 

2, Type I R-List 

2.1 T3^e I Format 

All type I instructions occupy one word and consist of operation code, 
RJ, RK, and RI fields in that order, 

2.2 Type I Operations 

R-List Machine 

Description Code Code 

Transmit 10 10,22 

AND 11 11 

OR 12 12 

Exclusive or 13 13 

Transmit complement 1,4 14 

Stroke 15 15 

Implication 16 16 

Equivalence 17 17 

Floating add 30 30 

Short add -Caften all 

othsr uses of RI> 2 53 

Short differencs load 3 57 

CAi38-t Short difference store 7 57 
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2,2 Continued 

Description 
Floating subtract 
Double Floating add 
Double Floating subtract 
Integer add 
Integer subtract 
Floating Multiply 
Double tioating multiply 
Floating divide 
Sitort add 

Short subtract 

Short Load 

Short Store 

Index right shift 

Index left shift 

Normalize 

Round and normalize 

Unpack 

Pack 

Shift transmit 

Unpack into BO 

3. Type II R-list 



R-List 


Machine 


Code 


Code 


31 


31 


32 


32 


33 


33 


36 


36 


37 


37 


40 


40 


42 


42 


44 


44 


46 


6N, 7N 




n=3,4,6 


67 


67,77 


41 


57 


45 


56,57 


23 


23 


22 


22 


24 


24 


25 


25 


26 


26 


27 


27 


62 


10,22 


3^ 


5b 



3,1 T3rpe II R-List Format 

All Type II instructions occupy one word and consist of operation 
code IN field, SO field, RI field, in that order. 



3,2 Type II Operations 

Description 
Form Mask 
Set 

Define 
Register store 



R-List 


Machine 


Code 


Code(s3 


43 


43 


61 


61,71 


53 


NA 


52 


NA 
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The Type II set operation iiid,y only be used for placing an 18 bit 
constant into a B or X register. 

The Define operation is used to set an initial condition for the 
sequence of which it is a member. A Define states that RI is in 
the register sepcified by the SO field. The intended use of the 
Define is to specify the whereabouts of results of function refer- 

onr^AS nn "r^f-ni— ni ncr 



The register store is used to stipulate the destination register of 
the previous operation of which RI was the result. In effect this 
is used to permit the appending of an SO field to a Type I instruction. 
Once an R is placed in a register by an SO or register store speci- 
fication the register is no longer available until the next sequence. 

Neither Define nor Register Stores result in the production of any 
executable code. 

Define and Register Stores differ from locks in that locked defini- 
tions hold until the end of DO loop jump is encountered which may 
be several sequences. Define and register store specifications have 
meaning only within their own sequences . 

If an SO field specifies a reserved register the reservation will 
be overridden. Moral: garbage in, garbage out, 

4. Type III R-list 

4.1 Type III R-List Format 

All t3rpe III instructions occupy two words. The first word consists 
of the operation code, CA field, SO field, and an RI field in that order, 
The second word contains a KF field, I field, and an H field right justi- 
fied. 
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4.2 Type III Operations 
Description 
Load 
Store 

Jump if RI=RF 
Jump if RI .NE. RF 
Jump if RI .GE. RF 
Jump if RI .LT. RF 
Zero X Jump 
Nonzero X Jump 
Positive X Jump 
Negative X Jump 
Indexed Jump 
Set 

APLIST 

Left Shift (CA) 
Right Shift (CA) 

APLIST entries will specify the address of the actual parameter 
in the I, Hi, and CA fields. The RI field will contain an ordinal 
which will say which parameter list this entry is a member of. 
Although entries for a given argument list (identical RI fields) 
need not be consecutive APLIST entries then must be in order. 

Any R which is operated qn by either a 20 or 21 operation must be 
defined by shift transmit immediately prior to the shift operation, 

5. Type IV R-List 

5.1 Type IV R-List Format 

All tyT>e IV instructions occupy one word, consisting of an oper- 
ation code, CA, I and H fields. 

R-List Machine 
Description Code Code(s) 

Unconditional Jump 54 0400 

Return Jump (60 bit) 101 01 

Entry 55 NA 

CA138-1 



\ACHINE 


c;fp,p<; bM/bS/b 


R-List 


Machine 


Code 


Code(s) 


50 


50 - 57 


51 


50 - 57 


70 


04 


71 


05 


72 


06 


73 


07 


74 


030 


75 


031 


76 


032 


77 


033 


102 


02 


104 


60 - 77 


56 


NA 


20 


20 


21 


21 
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5 . 1 Continued 

Description 

End of Statement 

End of Sequence 

Label 

End of RLIST 

Return Jump (30 bit) 



R-List 


Machine 


Code 


Code(s) 


57 


NA 


100 


NA 


60 


NA 


103 




105 


01 



6. 



MACROS 



6.1 Macro References 

Macros are referenced using a Type II format. The DC field 
contains the macro ordinal and is formed by placing the com- 
plement of the macro ordinal (MO) in a B-register and concatenating 
it to the rest of the information by use of a PACK instruction. 
The IN field contains the number of words which follow which con- 
tain parameters. 

6.2 Actual Parameters 

The actual parameters immediately follow the macro reference in 
the following order: 

1. sjmibols, if any 

2. R's, if any 

3. constants, if any 

6.2.1 Actual symbolic parameters are specified two to a word, the first 
in the lower half of the word, the second in the upper half and 
so on. Each half word cqnsisting of a right justified I field 
and H field, 

6.2.2 Actual R parameters are three to a word, as is Type I format, with 
the first being rightmost. 

6.2.3 Actual constant parameters are specified three to a word in 18 
bit fields right justified. 
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6.3 Macro Descriptors 

The descriptor locates the macro text and specifies its length 
and the number of parameters of each type. It occupies one word 
and has the following format: 

Bits 0-17 MA beginning address of the macro 

Bits 21 - 35 ML length of the macro in words 

Bits 36 - 41 NI nuiftber of generated intermediates 

Bits 42-47 NK number of integer constant parameters 

Bits 48 - 53 NR number of R parameters 

Bits 54 - 59 NS number of S3mibolic parameters 

6.4 Macro Text 

The macro text is written in normal R notation with the following 
modifications: 

1, If the high order bit of an RI, RJ, or RK field is not set 
and is greater than 1 it is interpreted as a formal reference 
to an R; the remainder of the field specifies the ordinal of 
the actual parameter list, 

2, If the H field is zero the IH pair is interpreted as a formal 
reference with the I field containing the ordinal of the actual 
parameter in the parameter list. 

3, IN and CA fields are interpreted as containing ordinals of 
actual parameters if the high order bit of the SO field is 
set. The use of type IV format instruction requiring a CA 
field as a formal parameter is not allowed. 
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7.D Four types of RLIST entries 



TYPE 


I 




OC 


RJ 


RK 


RI 






a 


ID 


lb 


lb 


lb 


TYPE 


II 




OC 


IN 


SO 


RI 






E 


ID 


Ifi 


m 


lb 






2 


ID 


la 


m 


lb 


TYPE 


III 




OC 


CA 


SO 


RI 








HE 


RF 


I 


HI 








m 


It. 


IS 


la 


TYPE 


IV 




OC 


CA 


I 


HI 






5 


ID 


13 


IE 


la 



a.D 



Defining R-List riacros 

All macros are. contained in the routine HACROX which is 
part of Pass E- A set of COnPASS macros-has been construct- 
ed to facilitate the definition of R~Iist macros- The 
following describes their use- 

Structure^ Each macro definition must begin with an 
RflACRO macro reference followed by the text of the R-list 
macro followed by an ENDR macro reference- 

RHACRO. The RMACRO reference has the following form: 

0-C - RflACRO 

Address field - NOSY-, NOR-, NOK 

where 

NOR - the number of R''s in the macro reference. 

NOSY - the number of IH fields in the macro reference. 

NOK - the number of constants in the macro reference. 

ENDR. The ENDR reference has the following form^ 

OC - ENDR 

Text. Text is written with R-list mnemonic operation 
codes in the OC field'-, a list of them is attached. The 
variable field will contain the arguments to the operation 
in the following orders : 
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TYPE I RIt RJ-, RK 

TYPE II RIt INt so 

TYPE III Rln RF-, CA-. SY-, SO 

TYPE IV CA-1 SY 

Omitted fields are interpreted as zero. 

R-fields. All R-fields -CRI-, RJ-, RKn and RF> must either 
begin with an I or P op must consist of 1 or zero. If it 
begins with an I or P r ^he rest of the field must be a 
decimal quantity giving the ordinal of the R in the asso- 
ciated I ist. 

I - the 1 ist of R-'s generated by the macro processor. These 
must be numbered greater than D. 

P - the 1 ist of R-'s in the parameter list referencing the 
macro. 

D and 1 are the constant R-'s located in BO and AO respec- 
tively. 

IN and CA fields- These fields must either be empty or 
contain an X or a B followed by a digit in the range D-7 
followed by a period. If an X or B is specif iedr that 
specification may optionally be preceeded by a T to indicate 
a temporary register assignment. 

SY fields. These must be either empty or a constant in 
which case it is interpreted as being an ordinal in the list 
of IH parameters. 



Example- 
ABSF 



RMACRO 

SXT 

KRS 

XOR 

ENDR 



Ilr PI 

I5r II, ST 

PEr I2r PI 
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FORTRAN Extended I/D Calling Sequences 
READ-iyRITEnPRINT-iPUNCH 



First entry BE = address of FET or complimented address S'^-f 

of variable tape number- 

■ "' ' B3 = address of format statement or comple- t-a^f-? 

ber -[for coded onlyr B3 is not set for 
binary>- 

RJ IPUTBI./IPUTCI./OPUTBI./OPUTCI. SI 



Intermediate 
entries 



Bl = address of data item or beginning ^^■ 
address of array- 



\^2 = array length -C* of words> or 1- 
R J INPUTB- /INPUTC /OUTPTB. /OUTPTC 

Final entry Bl = -1 

RJ INPUTB. /INPUTC /OUTPTB. /OUTPTC. 

ENCODEnDECODE 

First entry Bl = address of packed data. 

B3 = address of format statement or comple- 
mented address of variable format. 

BM = character length or complemented 

address of variable character length. 

RJ DECODI-/ENCODI. 

Intermediate 

entries Bl = address of data item or beginning 

address of arra)/' 

BE = array length -C* of words> or 1 . 

RJ DECODE. /ENCODE. 
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Final entry Bl = -1 

RJ DECODE. /ENCODE. 



BUFFER IN-, BUFFER OUT 

•Csingle entry! BI = moder or complemented address if vari- 
able mode. 

B2 = address of FET or complemented address 
of variable tape number. 

B3 = Fwa of data block- 



BH = I wa of data blockr or complemented Iwa 
of data block if type double or complex 

RJ BUFFEI./BUFFEO. 



NAHELIST 

-Csingle entry> Bl = address of NAHELIST information. 

BE = address of FET or complemented address 
of variable tape number. 

RJ INPUTN./OUTPTN. 
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SUBROUTINE LINKAGE AND FORHAL REFERENCING 

All references to formal parameter in the following circumstances 
will be dinectr i-e. address substitution will be performed at 
subroutine initialization time - 

l- Array element reference 

c- Entry in an actual parameter list 

3- Reference within a DD 

4- Reference to a formal ly defined subprogram 

All remaining references wi 1 1 be via indirect references- The 
address of the actual parameter list will be maintained in AD 
throughout the execution of the text of the execution of the text 
of the subprogram- The previous AD will be saved in local memory. 

SUBROUTINE LINKAGE 

Cal I ing Sequence^ 

SAl APLIST 
RJ SUBR 

Uhere APLIST is the address of the first element of the actual 
parameter list- The list has the addresses of the actual para- 
meters stored in order one per word in the low order position with 
zero fill- The list is terminated by a full word of zero. SUBR 
is the subroutine name- 
Substitution List Format' 

Each non-zero entry has the following format: 
E. S G CA G lA 



ST 57 Hfi 37 ED 17 D 

Uhere 

lA is the address of the instruction to be modified 

CA is the constant addend 
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S is the number of bit positions to be shifted over to place 
the address field of interest in the low order Ifi bitsr i-e-r 
Dr 3D or HS 
G is unused 

The list is ordered in sequence of the associated formal para- 
meters- Following all entries referencing a given formal 
parameter is a zero word followed by the entries associated 
with the next formal parameter. 

Restriction^ 

Consecutive entries in the substitution list may not reference 
the same instruction word. 
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SIO Description 

1.0 The function of SIO is to perform all communication with the files 
used during compilation. The files are assigned by logical unit 
number and are referenced by this fixed unit number, 

1.1 The logical unit assignment is as follows: 

Number File 

1 INPUT 

2 OUTPUT 

3 LGO 

4 RLIST 

5 COMPS 

SIO is located in the 0,0 overlay which is called FTNSIO, 

2.0 Entry Point Names 

2.1 OPEN 

2.1.1 This entry point sets up the FET. 

2.1.2 Calling Sequences: 

SBl Buffer Size 

SB6 Unit Number 

SB7 fwa 

RJ OPEN 

The buffer size must be at least a PRU+10 in size (see ERS SCOPE 
64/6600 Version 3.0 for definition of PRU). The FET is located at 
fwa thru fwa+10 in the buffer. 

2.2 CLOSE 

2.2.1 This entry is used to dump a write file. The specified buffer (file) 
is emptied with an end-of -record write request, 

2.2.2 Calling Sequence: 

SB6 logical unit number 
RJ CLOSE 

2.3 REWIND 

2.3.1 This entry is used to rewind a write file. The specified buffer (file) 
is emptied with an end-of-file write and rewound. 
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2.3.2 Calling Sequence: 

SB6 logical unit number 
RJ REWIND 

2.4 LIST 

2.4.1 This entry point is used for writing on the OUTPUT file. Page 
ejects and titles are inserted when necessary. If a page eject is 
wanted, it is only necessary to set LCNT (line count) to zero. 

2.4.2 Calling Sequence: 

SBl number of words 

SB6 logical unit number 

SB7 fwa of the array 

RJ LIST 

The words to be put out must be in display code and the last word 
must contain at least 12 bits qf zero in the low order position. 

2.5 RDWDS 

2.5.1 This entry is used to read a file which was created by the corresponding 
write request. 

2.5.2 Calling Sequence: 

SBl number of words 

SB6 logical unit number 

SB7 fwa of array 

RJ RDWDS 

Upon return the number of words read will be Bl. X4 will contain the 
status. If X4 .GT. this indicates the last read encountered on end- 
of-file. If X4 .LT. 0, this indicates the buffer is static and con- 
tains useful information. If X4 .EQ. +0, this indicates an end-of- 
record was encountered during the last read. 

2.6 RDCARD 

2.6.1 This routine is used to read card images from the disk. The char- 
acters are separated into one per word right justified zero fill. 
The requestors array must be fO words in length. The remaining words 
in the array are zero filled with a display code blank in the low order 
position. 

2.6.2 Calling Sequence: 

SB6 logical unit numbar 
SB7 fwa of array 
RJ RDCARD 

The return parameters are defined in 2.5.2. 
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2.7 WRWDS 

2.7.1 This entry point is used to write words in a continuous record on a 
file. 

2.7.2 Calling Sequence: 

SBl number of words 

SB 6 logical unit number 

SB7 fwa of array 

RJ WKWDS 

A CLOSE or REWIND must be issued to insure that the file contains 
all valid information, 

2.8 STATUS 

2.8.1 This entry is used to determine the STATUS of a file. 

2.8.2 Calling Sequence: 

SB6 logical unit number. 
RJ STATUS 

The status parameters in X4 which are described in 2.5,2 are returned. 

2.9 TITLEl 

2.9.1 This location is the fwa of a 100 character title. The title is 
initially blank except for the page count. 

2.10 LCNT 

2,10,1 This is the location of the line count, it is initially zero which 
will cause a page eject upon the first reference to LIST. 

2.11 PAGE 

2,11.1 This location contains the current page count in display code in the 

low order 18 bits. The initial contents of this location are "GE,bNO.bbO". 
To reset the page count, it is necessary to store a word of binary zeros 
into PAGE, 

3,0 No diagnostics are produced by SIO. 

4,0 Structure 
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5.0 Major Subroutines 

5.1 RDLIMIT 

This routine returns the contiguous buffer space available for use 
in B2. If XO is ^0, the total amount of unused buffer is returned. 
The address of OUT is returned in X2. XI contains the address of 
the FET upon entry. If the buffer is empty and the last operation 
did not return an end-of -record or end-of-file status, a read will 
be initiated and a RECALL request will be made. If the buffer is 
empty and the end-of-record status is on, the status is returned to 
the user and cleared in the FET. 

5.2 MVEXIT 

This routine checks if the buffer is half empty and request another 
read if it is» This routine is entered after each read request. 

5.3 WRLIMIT 

Similar to RDLIMIT except it is used for finding the buffer limits 
for write requests. 

5.4 MVWDS 

This routine is used to move words to and from the l/O buffer. The 
destination address is in B7, the origin address is X2 and the number 
of words in B2. 

5.5 FRMCAL 

This routine is used to format File Manager requests (CIO). The FET 
address is in Xl, the parameter is X4 and the return address is in 
B6. 

5.6 RCLl 

This routine makes all requests for RECALL. The return address is 
in B6. 

5.7 CKSTAT 

This routine is called to determine the status of a buffer. The 
reply is in X4. 

X4 LT -0 buffer busy 

X4 EQ -0 buffer static 

X4 GT +0 EOF encountered 

X4 EQ +0 EOR encountered 
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6.1 



6.2 

6.3 

6.4 

6.5 

7.0 
7.1 



FET Table 
Word 1 



bits 0-6 
bits 18-60 



buffer status 

file name, zero fill 



address of FIRST 
address of IN 
address of OUT 
address of LIMIT 
half buffer size 
first reference flag 



Word 2 bits 0-18 

Word 3 bits 0-18 

Word 4 bits 0-18 

Word 5 bits 0-18 

Word 6 bits 0-18 

Word 7 bit 59 

Word 8 not used 

Word 9 not used 

Word 10 not used 

Word 11 not used 

ODDFLG 

Used by MVWDS to signify an odd number of words to be moved, 

FWAl, LWAl 

Location of card image in INPUT buffer, needed by FRDGARD in SCANNER. 

SVWDCNT 

Saved word count when requests are made via LIST, 

SVADDR 

Saved fwa when requests are made via LIST. 

Modification Facilities 

IMAX 

May be changed by an EQU to modify the number of lines per page on 
the listing. 
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7.2 



I/O Files 



The name of the l/O files (left justified zero filled) must be 
placed in RAH-2 thru RA+n before an OPEN request is made. The 
logical unit numbers are related to the name in the RA area as 
the name in RA+n is the file used for logical unit n-1. If the 
name OUTPUT appears in RA+3 any reference to file number 2 will re- 
sult in a reference to the OUTPUT file. 
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